Conversor visual basic

[culd]

Lo tome como un ejercicio mental, asi que me tome el trabajo de hacerlo.

- Insertar 2 CommandButton
BUnidad
BCalcular

- Insertar una matris de TextBox (6 elementos)
txtNumero

Copiar el siguiente codigo en el Formulario:

Código vb:

Dim Medidas(0 To 5) As Double
 
 
Private Sub BCalcular_Click()
Dim Indice As Integer
Dim X As Integer
 
For X = 0 To 5
    If Trim(txtNumero(X)) <> "" Then
        Indice = X
        Exit For
    End If
Next X
 
For X = 0 To 5
    If X <> Indice Then
        txtNumero(X) = Round((CDbl(txtNumero(Indice)) * Medidas(X)) / Medidas(Indice), 5)
    End If
Next X
End Sub
 
Private Sub BUnidad_Click()
Dim X As Integer
For X = 0 To 5
    txtNumero(X).Text = Medidas(X)
Next X
End Sub
 
Private Sub Form_Load()
Medidas(0) = 1
Medidas(1) = 39.3701
Medidas(2) = 3.28084
Medidas(3) = 1.09361
Medidas(4) = 0.00062
Medidas(5) = 0.00055
End Sub
 
Private Sub txtNumero_GotFocus(Index As Integer)
Dim X As Integer
For X = 0 To 5
    txtNumero(X).Text = ""
Next X
End Sub