Esetleg nem lehet, hogy ez a probléma, mivel a változókat számként használod?

Dim sz, elso, usor, uoszlop As Boolean