error '800a0400'

[Sergiete]

El error no se muy bien lo que será pero yo empezaria por cuidar un poco la estructuracion de la programación.
No es demasiado correcto abrir un if con un while dentro y poner el end if dentro del while, amos esto:
If xxx Then
xxxx
while xxx do
xxx
end if
movenext()
loop

Esto es un fallo gordo. El end if se pondría despues del loop o bien el If dentro del while, y esto no debería afectar a la ejecución, pero si en cualquier caso afecta lo suyo sería buscar otra forma de hacerlo.