Реализовать в VB

Option Explicit
Dim FG As MSFlexGrid
 
Private Sub Form_Load()
    Dim q(1 To 3, 1 To 10) As String, i As Integer
    Set FG = MSFlexGrid1
    FG.Cols = 4: FG.Rows = 18
    FG.ColWidth(0) = 500: FG.ColWidth(1) = 4500: FG.ColWidth(3) = 1500:
    FG.TextMatrix(0, 1) = "Параметр"
    FG.TextMatrix(0, 2) = "Значение"
    FG.TextMatrix(0, 3) = "Ед.изм."
    For i = 1 To FG.Rows - 1
          FG.TextMatrix(i, 0) = i
    Next i
    FG.Height = FG.RowHeight(0) * (FG.Rows + 0.5)
End Sub
 
Private Sub Command1_Click()
    Const pi As Single = 3.141592
    Dim d As Single, ro As Single, L As Single, k As Single, ks As Single, s As Single, r As Single
    Dim P As Single, Pl As Single, P1 As Single, P2 As Single, Iff As Single, Il As Single
    Dim Uf As Single, Rf As Single, Pf As Single, CosFi As Single
    Cls
    d = 6 ''<br>
    Call disp("Диаметр прутка нагревателя d = ", CStr(d), " мм", 1)
    r = d / 2 '
    Call disp("Радиус прутка нагревателя r = ", CStr(r), " мм", 2)
    s = pi * r ^ 2 '
    Call disp("Сечение прутка нагревателя s = ", CStr(s), " мм^2", 3)  '
    k = 2 '''<br>
    Call disp(" Количество прутков в секции нагревателя k = ", CStr(k), " шт.", 4)  '
    ks = 8 '
    Call disp("Количество секций в фазе ks = ", CStr(ks), " шт.", 5)  '
    s = k * s '
    Call disp("Сечение секции нагревателя S = ", CStr(s), " мм^2", 6)  '
    L = 420 * 10 ^ -3 '
    Call disp("Длина прутка нагревателя l = ", CStr(L), " м", 7)  '
    L = ks * L '
    Call disp("Длина фазы нагревателя L = ", CStr(L), " м", 8)  '
    ro = 0.412 '
    Call disp("Удельное сопротивление материала ", "", "", 9)
    Call disp("прутка нагревателя ro = ", CStr(ro), " Ом мм^2/м", 10)  '
    Rf = ro * L / s '
    Call disp("Сопротивление фазы нагревателя Rф = ", CStr(Rf), " Ом", 11)  '
    Uf = 36 '
    Call disp("Напряжение фазы нагревателя Uф = ", CStr(Uf), " В", 12)  '
    Iff = Uf / Rf * 10 ^ -3 '
    Call disp("Ток фазы нагревателя Iф = ", CStr(Iff), " кА", 13)  '
    Il = Sqr(3) * Iff '
    Call disp("Линейный ток (в токоподводе) Iл = ", CStr(Il), " кА", 14)  '
    Pf = Uf * Iff '
    Call disp("Мощность фазы нагревателя Pф = ", CStr(Pf), " кВт", 15)  '
    P = 3 * Pf '
    Call disp(" Полная мощность нагревателя P = ", CStr(P), " кВт", 16)  '
    P1 = Sqr(3) * Uf * Iff * 0.866
    P2 = Sqr(3) * Uf * Il
    Pl = P2 / 2
    CosFi = Il / (2 * Iff)
    Call disp(" Коэффициент мощности нагревателя CosFi = ", CStr(CosFi), "", 17) '
End Sub
 
Sub disp(ByVal s1 As String, ByVal s2 As String, ByVal s3 As String, ByVal NumberOfString As Integer)
    FG.TextMatrix(NumberOfString, 1) = s1
    FG.TextMatrix(NumberOfString, 2) = s2
    FG.TextMatrix(NumberOfString, 3) = s3
End Sub