Dim strLines() As String 'ist das richtig definiert??
   Dim lngLines As Long
    'Anzahl der Zeilen zählen
    lngLines= 0
    For i = 0 To UBound(strLines)
        If Not strLines(i) = "" Then
            lngLines= lngLines+ 1
        End If
    Next
    'Zeilen auf PictureBox schreiben
    For i = 0 To lngLines- 1
        Picture1.print strLines(i)
    next