Dim neu As StreamWriter = New StreamWriter("partlist.txt")
Dim ZellenText As String
 
For i As Integer = 0 To nm_rows - 1
     For j As Integer = 0 To nm_cols - 1
          neu.Write(ZellenText & IIf(j = nm_cols - 1, vbCrLf, vbTab))
     Next
Next