Private Sub Command1_Click()
    Dim arsLines() As String
    Dim i As Integer
    Dim lngLines As Long
 
    Text1.Text = "Hallo mein name ist qs. asfhjhasf - asfasf as-asfasf -" & _
      "asfasffasf -as   --asf   -as sfaf"
    arsLines = Split(Text1.Text, vbCrLf)
 
    'Anzahl der Zeilen zählen
    lngLines = 0
    For i = 0 To UBound(arsLines)
        lngLines = lngLines + 1
    Next
    'Zeilen auf PictureBox schreiben
    For i = 0 To lngLines - 1
        Picture1.Print arsLines(i)
    Next
End Sub