Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Text1 Text1 = "" Text1.SetFocus End IfEnd Sub
