Dim k As Integer
Dim j As Integer
Dim i As Integer
Dim SplitLength As Integer
Dim MyArraySplit() As String
 
Do While j <= k - 1
          MyArraySplit = MyArrayOpen(j).Split(vbTab)
          SplitLength = MyArraySplit.Length - 1
          Do while i <= SplitLength
                     ausgabe.Text = MyArraySplit(i) & "---"
                     i = i + 1
          Loop
          ausgabe.AppendText(vbCrLf)
          j = j + 1
Loop