Завершение ввода Textbox - VB

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

Ввожу число в Textbox1. Как сделать, чтобы данные обрабатывались только по нажатию на клавишу Enter и курсор убирался из Textbox1?

Private Sub text1_change()
If IsNumeric(Text1.Text) Then
Label1.Caption = Text1.Text
Else
Label1.Caption = ""
End If
End Sub

Решение задачи: «Завершение ввода Textbox»

textual
                            Листинг программы 
                        

                            Private Sub Form_Unload(Cancel As Integer)
Cancel = IIf(UCase(InputBox("Y-?")) = "Y", 0, 1)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Round(Val(Text1.Text), 2)
Command1.SetFocus
Else
If KeyAscii = 44 Then KeyAscii = 46
KeyAscii = IIf(InStr(1, "0123456789-." & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
If KeyAscii = 0 Then MsgBox "!"
End If
End Sub
                        