Ola!! Por favor queria uma ajuda de voces! Como eu faco para arredondar casas decimais no Vb6??

 

Eu preciso desenvolver uma logica que eh mais ou menos assim... O Usuario digita um numero, por exemplo 38.

Atraves do numero que ele digitou eu preciso saber que numero multiplicado por 0,74 daria 38.

 

51,33*0,74 = 37,9842

51,34*0,74 = 37,9916

51,35*0,74 = 37,999

51,36*0,74 = 38,0063

 

Ou seja, o valor que mais se aproximou foi 51,35 pq na hora que arredondar o 38,0063 vai ficar 38,01.

Soh que eu nao estou conseguindo fazer no VB6 arredondar... Alguem sabe me dizer como posso fazer?

 

Desde ja obrigada

Bom galera, mechendo aqui consegui eu mesma resolver o meu problema!!

 

Entao deixo aqui o que eu fiz para caso alguem tenha a mesma duvida que eu algum dia...

 

Me.MousePointer = vbHourglass
    aux = "1000,00"
        If Text1.Text > 740 Then
            MsgBox "Valor informado maior do que 740. Por favor entre em contato com o administrador.", vbInformation, "Aviso"
        Else
            valor = Round((aux * "0,74"), 2)
   
        ValorInfText = Round(Text1.Text, 2)
        Do While ValorInfText <> valor
            aux = aux - "0,01"
            valor = Round((aux * "0,74"), 2)
        Loop
       
        resultado = Round(aux, 2)
        MsgBox resultado
        End If
Me.MousePointer = vbArrow