Private Sub command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then Text2 = Val(Text1) * 100
ElseIf Option3 = True Then Text2 = Val(Text1) * 10
ElseIf Option4 = True Then Text2 = Val(Text1) / 1000
End If
End Sub