Private Sub Text1_Change()
    If IsNumeric(Text1.Text) Then
        Text2.Text = Format((Text1.Text / 1.95583), "0.00")
    End If
 
    If Not IsNumeric(Text1.Text) Then
        Text2.Text = ""
    End If
End Sub
 
 
 
Private Sub Form_Load()
    Text1.Text = ""
    Text2.Text = ""
End Sub