Function CheckPos(I As Byte, P As Byte, Optional SLeft = -1) As Boolean
Dim B As Boolean, D As Byte
If SLeft = -1 Then SLeft = SymbLeft
For D = 0 To UBound(aSymb, 2)
    If D <= UBound(Spielfeld, 2) Then
        If aSymb(P, D) > 0 Then
            B = B Or (Spielfeld(I + P, D + SLeft) > 0) ' <---- hier hängt er
        End If
    End If
Next D
CheckPos = B
End Function