По нажатию кнопки вывести в поля определенные значения - VB

Формулировка задачи:

Может кто то перевести код С++ в код Visual Basic, код мне нужен для маленькой программки которая по нажатию кнопки выводит в поля определенные значения, и еще есть поле для ввода аргумента, он равен 18, в моем коде обозначен как w, код на С++ и фото формы ниже.

                    Листинг программы
                
#include "stdafx.h"
#include <math.h>
#include <iostream>
 
using namespace std;
 
int main()
{
    
    float  I=0.36, G=35.68, q=9.81, w=18,L, z;
    
    z=(G/q)+0.1;
    L=(10/w)*sqrt(0.5*z*(sqrt(0.25*z+((0.2*I*w*w/q)))));
    
    cout << "z -> " << z<< endl;
    cout << "L -> " << L<< endl;
    
     system("pause");
    return 0;
}

Решение задачи: «По нажатию кнопки вывести в поля определенные значения»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Sub Command1_Click()
    Main
End Sub
 
Sub Main()
    Dim I As Double, G As Double, q As Double
    Dim w As Double, L As Double, z As Double
    I = 0.36: G = 35.68: q = 9.81: w = Text1.Text
    z = (G / q) + 0.1 ';
    L = (10 / w) * Sqr(0.5 * z * (Sqr(0.25 * z + ((0.2 * I * w * w / q)))))
    Label1.Caption = L
    Label2.Caption = z
End Sub