Dim row As New ArrayList
        Dim temp As String = String.Empty
        Dim i As Integer
        'Array für Zeilen füllen
        While File.Peek > 0
            row.Add(File.ReadLine())
        End While
        For i = 0 To row.Count - 1
            row(i) = row(i).Replace(Chr(43), "")        'HIER KOMMT KEIN FEHLER 
            ' MEHR"
            row(i) = row(i).Replace(".", ",")
            row(i) = row(i).Replace(vbTab, Chr(32))
            row(i) = row(i).Replace(vbLf, Chr(32))
            row(i) = row(i).Replace(vbCrLf, Chr(32))
            row(i) = row(i).Replace(vbCr, Chr(32))
            temp = temp + row(i)
        Next i
        MessageBox.Show(temp)
        File.Close()

       For i As Integer = 0 To 49
           If Not row(i) Is Nothing Then
                row(i) = row(i).Replace(Chr(43), "")        'HIER KOMMT KEIN 
                ' FEHLER MEHR"
                ' ...
                temp = temp + row(i)
           End If         
       Next i

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist