Private Sub LongText_KeyPress(keyascii As Integer)
    Select Case keyascii
    Case 8, 13, 32, 35, 37, 38, 40 To 90, 97 To 122, 129, 132, 142, 148, 153, _
      154, 178, 179, 196, 214, 220, 223, 225, 228, 246, 252
    Case Else
    keyascii = 0
    End Select
End Sub
 
Private Sub LongText_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 2 And KeyCode = 13 Then
    Text(2).SetFocus
    End if
End Sub