Dim TrennZeichen As String = "/"            'Feld-Trennzeichen
   Dim Fieldcount As Integer = 3               'Zahl der Felder
   Dim Max_FieldLength(Fieldcount) As Integer  'Länge der Felder (Zeichenzahl)
   Max_FieldLength(0) = 2
   Max_FieldLength(1) = 2
   Max_FieldLength(2) = 4
 
   'Aufbau der entsprechenden Maske (hier: für Ziffern)
   MaskedTextBox1.Mask = ""
   For i As Integer = 0 To Fieldcount - 1
      MaskedTextBox1.Mask &= _
      Microsoft.VisualBasic.StrDup(Max_FieldLength(i), "9")
      If i < Fieldcount - 1 Then _
      MaskedTextBox1.Mask &= "\" & TrennZeichen
   Next i

    'Aus der Datei gelesener String (Beispiel)
    Dim dat_str As String = "76/aaa1234/28/33"
 
    'Zerlegung des String in Felder anhand der Trennzeichen
    Dim dat_fields() As String = dat_str.Split(CChar(TrennZeichen))
    If dat_fields.Length <> Fieldcount Then
       'Ungültige Zahl der Felder -> Anhängen oder Abschneiden?
       ReDim Preserve dat_fields(Fieldcount - 1)
    End If
 
    Const Ziffern As String = "0123456789" 'zulässige Zeichen
 
    Dim istr As String
    'Formatierung der Felder auf korrekte Länge
    For i As Integer = 0 To Fieldcount - 1
       'Zeichen, die keine Ziffern sind, ggf. entfernen
       istr = String.Empty
       If Not String.IsNullOrEmpty(dat_fields(i)) Then
          For z As Integer = 0 To dat_fields(i).Length - 1
             If Ziffern.Contains(dat_fields(i)(z)) Then
               istr &= dat_fields(i)(z)
             End If
          Next z
          dat_fields(i) = istr
       Else
           dat_fields(i) = String.Empty
       End If
 
       'zu kurze Strings verlängern
       While dat_fields(i).Length < Max_FieldLength(i)
          dat_fields(i) = " " & dat_fields(i)
       End While
       'zu lange Strings abschneiden
       dat_fields(i) = _
       dat_fields(i).Substring(0, Max_FieldLength(i))
    Next i
 
    'Aufbau des Anzeigestrings
    Dim display_string As String = String.Empty
    For i As Integer = 0 To Fieldcount - 1
       display_string &= dat_fields(i)
    Next i
 
    MaskedTextBox1.Text = display_string