Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Text1.SelStart = Text1.MaxLength - 1 Then
        Text1.Text = Text1.Text + Chr(KeyAscii)
 
        If Val(Text1.Text) < 256 Then
          Text2.SetFocus
        End If
 
    End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de