Dim str4 As String = ""
Dim i6 As Integer = 0
 
Using sw As StreamWriter = New StreamWriter(NC_Datei, False, _
  System.Text.Encoding.Default)
 
    For i5 As Integer = 0 To NC_FileSB.Length - 1
 
 
        If NC_FileSB(i5).ToString.Equals(vbCr) Then
 
            If isHermleC40HDH Then
 
                str4 = Regex.Replace(str4, "(\n|\r|\r\n)", "")
                sw.WriteLine(Regex.Replace(str4, "^\d+ ", i6.ToString + " "))
 
                i6 += 1
            Else
 
                sw.WriteLine(Regex.Replace(str4, "(\n|\r|\r\n)", ""))
 
            End If
 
            str4 = ""
        Else
            str4 &= NC_FileSB(i5).ToString
        End If
 
 
    Next
 
End Using

Grüße Andi