Ajuda overflow

[eduardomax]

Olá.. bom to com um problema... começei a ler a apostila e entendi um pouco então não sei muita coisa.

To tentando fazer uma calculadora que converta bin para hex, para decimal,octal e entre si. Tudo bem e agora ta dando "Run time error '6' Overflow" quando tento executar o seguinte código:

If Option1.Value = True Then
  Do While valor <> 0
    transformado = transformado + ((valor Mod 10) * pot)
    pot = pot * 8
    valor = (valor / 10)
  Loop
End If

Essa seria de binario para Decimal.

E quando tento de binario para octal da tudo certo mas quando boto mais de 10 dígitos da o mesmo erro. Como arrumar isso?

[kuroi]

declare a variavel como Long.

se continuar dando erro, então declare como Double.