Private Sub Form_Load()
    Dim x As Double
    Dim y As Double
    
    On Error Resume Next
    y = 100 * 6000  'por que o vb não aguenta fazer esta conta tão simples?  
    
    x = y / 0.25
End Sub

já tentei declarar como variant e deu erro do mesmo jeito !!
dei uma olhada nas funções matemáticas (Math), mas tb. não encontrei nada que resolve-se.

Observo que na calculadora windows e excel esta conta é feita numa boa.

------
[]´s
Vilmar Brazão de Oliveira

Já postei no VBMania também Vilmar

 

Private Sub Command1_Click()
    Dim ValorA As Long
    Dim ValorB As Long
    Dim X As Long
    Dim Y As Long
    ValorA = 100
    ValorB = 6000
    Y = ValorA * ValorB
    X = Y / 0.25
    MsgBox X
End Sub

Que p$%$%$ louca este VB6, só funfa se jogar os valores dentro de variáveis, heheeh.

Esta eu não sabia que era assim para números que fornceçam resultados grandes em contas.

 

Obrigado.