Dim neu As StreamWriter = New StreamWriter("partlist.txt")
Dim ZellenText As String
Dim frmTestGrafik As New System.Windows.Forms.Form
Dim Feldbreite As Integer
Dim Schrift As System.Drawing.Font
Dim s As String = ""
 Dim Umbrueche As Integer = 1
 Dim StartVal As Integer = 1
Dim g As System.Drawing.Graphics = frmTestGrafik.CreateGraphics
Dim sf As System.Drawing.SizeF
 
 
For i As Integer = 0 To nm_rows - 1
     For j As Integer = 0 To nm_cols - 1
 
                        For a As Integer = 1 To ZellText.Length
                            s = Mid(Text, StartVal, a - StartVal + 1)
                            sf = g.MeasureString(s, Schrift)
                            If sf.Width > Feldbreite Then
                                Umbrueche = Umbrueche + 1
                                StartVal = a
                                sw.WriteLine(ZellText)
                            End If
                        Next
     Next
Next