Option Explicit
 
    Dim Pfad As String
    Dim DateiNr As String
    Dim Pixelfolge As Variant
    Dim P(10, 10) As Long
    Dim x As Integer
    Dim y As Integer
    Dim LINKS As Variant
 
Private Sub Command1_Click()
On Error GoTo MaMa
Picture1.BackColor = vbWhite
LINKS = 1
 
    For x = 1 To 10
        For y = 1 To 10
            P(x, y) = Mid(Pixelfolge, LINKS, 1)
            LINKS = LINKS + 1
 
            If P(x, y) = 1 Then Picture1.PSet (y, x), vbBlack
        Next
    Next
Exit Sub
MaMa: MsgBox "Es ist folgender Fehler aufgetreten: #" & Err.Number
End Sub