Text3.Text = Format((TimeValue(Text2.Text) - TimeValue(Text1.Text)), "hh:mm:ss")

For x = 1 To 10
   Label1.Caption = Label1.Caption & (Text1.Text & " x " & x & " = " & Val(Text1.Text) * x) & vbCr
Next

Private Sub Form_Load()
   Text1.MaxLength = 5
   Text2.MaxLength = 5
   Text3.MaxLength = 5
   Text4.MaxLength = 5
   Text5.MaxLength = 5
End Sub

Private Sub Text1_Change()
   If Len(Text1) = 5 Then Text2.SetFocus
End Sub

Private Sub Text2_Change()
   If Len(Text2) = 5 Then Text3.SetFocus
End Sub

Private Sub Text3_Change()
   If Len(Text3) = 5 Then Text4.SetFocus
End Sub

Private Sub Text4_Change()
   If Len(Text4) = 5 Then Text5.SetFocus
End Sub

Private Sub Form_Load()
   Txt(1).MaxLength = 5
   Txt(2).MaxLength = 5
   Txt(3).MaxLength = 5
   Txt(4).MaxLength = 5
   Txt(5).MaxLength = 5
End Sub

Private Sub Txt_Change(Index As Integer)
If Len(Txt(5).Text) = 5 Then
   'Opción de salida cuando llegue al ultimo textbox
Else
   If Len(Txt(Index)) = 5 Then Txt(Index + 1).SetFocus
End If
End Sub

'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados

Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
   Case 65 To 90                  'Caracteres May
   Case 97 To 122                'Casracteres Mim
   Case 241                         'Letra ñ
   Case 209                         'Letra Ñ
   Case Else
      KeyAscii = 0  
End Select

End Sub