Dim i As Long, TZ As String, Txt As String, TxtList() As String
 
  Txt = Trim$("11111+22222+33333+44444")
  TZ = ""
  For i = 1 To Len(Txt)
    If Not (Mid$(Txt, i, 1) Like "#") Then
      TZ = Mid$(Txt, i, 1)
      Exit For
    End If
  Next i
  If TZ = "" Then
    MaskEdBox1.Text = Txt
  Else
    TxtList = Split(Txt, TZ)
    For i = 0 To UBound(TxtList)
      Me.Controls("MaskEdBox" & (i + 1)).Text = TxtList(i)
    Next i
  End If
 
' wenn Control-Array
'  If TZ = "" Then
'    MaskEdBox1(0).Text = Txt
'  Else
'    TxtList = Split(Txt, TZ)
'    For i = 0 To UBound(TxtList)
'      MaskEdBox1(i).Text = TxtList(i)
'    Next i
'  End If

Gruss,

Zardoz