Error 6 desbordamiento en visual basic

[gringocre]

hola solo queria saber porque c%$&$%o me tira este error: aca el codigo,

Private Sub Command11_Click()
Dim codigo As Long
Dim var As String
var = InputBox("Ingrese el codigo de barras del producto")
codigo = Val(var)
If codigo > 0 Then
Adodc1.Recordset.Find "numpro=" & codigo, 0, adSearchForward, 1
If Adodc1.Recordset.EOF Then
MsgBox "No se encontró el producto"
Adodc1.Recordset.MoveFirst
End If
End If
end sub

el cliente tiene que ingresar el codigo de barras en una inputbox pero si ingreso por ejemplo 111111111111 me da ese error, probé de todo, definiendo a la variable var como long, integer, y como ven con string, pero me sigue tirando ese error... espero me puedan ayudar
desde ya muchas gracias a todos
Andres C

[Avellaneda]

Hola, ¿has probado con Double?

Dim codigo As Double
Dim var As String
var = InputBox("Ingrese el codigo de barras del producto")
codigo = Val(var)


Aunque te puedes ahorrar la variable "var", si lo pones así:

Dim codigo As Double
codigo = InputBox("Ingrese el codigo de barras del producto")

Un saludo

[David]

También, puedes colocar directamente como cadena de Texto (String), creo que será más fácil...

[gringocre]

Gracias a los dos, lo solucioné poniendolo como string y andubo perfecto...


Dim codigo As string
codigo = InputBox("Ingrese el codigo de barras del producto")

gracias de nuevo
Gringo