Private Sub Feldlänge_prüfen(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.TextChanged
        If Len(Me.Text) > Len(_Mask) Then
            Me.Text = Microsoft.VisualBasic.Left(Me.Text, Len(Mask))
        End If
    End Sub

Gru?

Martin