اريد هذه الأكواد البسيطة

تفضل

Private Sub Form_Load()
Me.Text1.MaxLength = 3
Me.Text2.MaxLength = 3
End Sub

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then Me.Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 And Me.Text2 = "" Then Me.Text1.SetFocus
End Sub