[VB6] Algoritmo per trasformare numero con virgola in binario

[MdE2005]

Mi sa che non ho capito molto, cmq prova questo:

Private Function Converti(ByVal Numero)

n = Numero

Do

p = InStr(1, Numero, ",", vbTextCompare)

Numero = "0," & Right(Numero, Len(Numero) - p)

Numero = Numero * 2

totale = totale & Int(Numero)

Loop Until Numero = n

Converti = totale

End Function

Per usarla basta Msgbox Converti(NumerodaConvertire)

Ciao