Dim a As Integer

Private Sub Option1_Click(Index As Integer)
Text2.Text = 0
Dim a As Single
If Option1(0) Then
a = Int((Val(Text1.Text) / 32.4) * 100) / 100
Text2.Text = a
End If
If Option1(1) Then
a = Int((Val(Text1.Text) / 39.1) * 100) / 100
Text2.Text = a
End If
If Option1(2) Then
a = Int((Val(Text1.Text) / 0.29) * 100) / 100
Text2.Text = a
End If

End Sub