Dim last As Integer
last = 0
For i = 0 To aRow
Dim rowBuf As String
Dim streak As Integer
Dim stukCode As String
stukCode = Mid(code, (i * breedte) + 1, breedte)
   For j = 0 To breedte
        Dim letter As String
        letter = Mid(stukCode, j, 1)
        If letter = "#" Then
            If last = 0 Then
                last = 1
                streak = 1;
            Else
                streak = streak + 1

            End If
        Else
            If last = 1 Then
                rowBuf = rowBuf + streak
                streak = 0
            End If
        End If
   Next j
Next i