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