Error de problema de desbordamiento de vbs '800a0006

El valor de retorno del cuadro de entrada es una cadena. El valor de la cadena siempre es mayor que el valor numérico. Para convertir a en un valor numérico, es decir:

a = CInt(a)

.

El código modificado es el siguiente:

Dim a, x, y, m

a=Inputbox("Ingrese el número de veces", "Como título" )

n=0

x=1

y=1

m=0

a = CInt(a) 'Agregar esta declaración de conversión de valor

Hacer while nlt;=a

m=x y

x=y

y=m

n=n 1

Bucle

MsgBox "s=" amp; y amp "", 4096 64, "kkllll"