Public Sub MustBreakLine(ByVal strString As String, _
                         ByRef colString As Collection, _
                         ByRef oTWObject As Object, _
                         ByVal sngMaxX As Single)
 
    Set colString = New Collection
 
    strString = Trim(strString)
    If Len(strString) = 0 Then
        colString.Add strString
        Exit Sub
    End If
 
    If oTWObject.TextWidth(strString) < sngMaxX Then
        colString.Add strString
        Exit Sub
    End If
 
    Dim i As Long
    Dim lngPos As Long
    Dim sngLen As Single
    Dim strTemp As String
    Dim strChar As String
    Dim sngActW As Single
    Dim strSplit() As String
 
    If InStr(1, strString, Space(1), 1) <> 0 Then
        strSplit = Split(strString, Space(1))
        If Not IsEmpty(strSplit) Then
            For i = 0 To UBound(strSplit)
                sngActW = oTWObject.TextWidth(strTemp & strSplit(i))
                If sngActW < sngMaxX Then
                    strTemp = strTemp & strSplit(i) & Space(1)
                Else
                    colString.Add strTemp
                    strTemp = strSplit(i)
                End If
                If i = UBound(strSplit) Then
                    colString.Add strTemp
                End If
            Next i
            Erase strSplit()
            Exit Sub
        End If
    End If
 
    ' Kein Space(1) im String dann CharBreaking
    For i = 1 To Len(strString)
        strChar = Mid$(strString, i, 1)
        If oTWObject.TextWidth(strTemp & strChar) < sngMaxX Then
            strTemp = strTemp & strChar
        Else
            colString.Add strTemp
            strTemp = strChar
        End If
        If oTWObject.TextWidth(strTemp) < sngMaxX _
        And i = Len(strString) Then
            colString.Add strTemp
        End If
    Next i
 
End Sub

Ohne Mampf, kein Kampf !