Visual Basic - PONER UNA SIMPLE COMA O PUNTO

HELLO WORLD THIS IS ME. (Bele Berez)

TENGO UN PROBLEMA MUY GRANDE JAJA ES SOLO PONER UN PUNTO,
BIEN TENGO UN LISTBOX EN EL CUAL GUARDO VALORES MONETARIOS DE UN SUPERMERCADO, PERO MI PROGRAMA NO IDENTIFICA LOS KILOS, NI LOS GRAMOS, NI METROS NI CMS. , PERO EL PROBLEMA NO ES ESE YA QUE POR EJEMPLO:
SI ME PIDEN 1/2(MEDIO KILO) DE AGUACATE SOLO PONGO 0.5 Y SE MULTIPLICA POR SU VALOR ESTO ES:

0.500 * 9.50 OSEA 500GRAMOS DE AGUACATE A $9.50 EN TOTAL SERIAN $4.75, PERO ME DA DE RESULTADO UN 475, ¿COMO LE PUEDO PONER EL PUNTO?, NO DESEO CAMBIAR EL CODIGO FUENE YA QUE COMO LO TENGO ES COMO ME CONVIENE PARA OTROS FINES. SOLO DESEO SABER ¿COMO PONGO ESO?

EJ:
LIST4.ADDITEM (LIST3.LIST(A) * LIST2.LIST(A))

ESTO DARIA EN EL LIST 4:

LIST4.ADDITEM = 9.50 * 0.5

LIST4(EN CIERTA POSICION) = 475
Y DEVE SER
LIST4(EN CIERTA POSICION)= 4.75


OJALA ME ENTIENDAN Y ME PUEDAN AYUDAR

¿Checaste los tipos de variables que estas manejando?

precio es currency y peso es single....
¿no tendrias que hacer alguna conversion?

COMO EXPLIQUE ANTES NO DESEO CAMBIAR MI CODIGO FUENTE, YA QUE ESTA BIEN, CONVOERTE DE TEXTO A NUMERO, Y DE ESE NUMERO A OTRAS SITUACIONE, LO QUE HE PENSADO, PERO TODAVIA NO SE COMO HACERLE BIEN ES ASI:

POR EJEMPLO

14534 QUE EN REALIDAD SERIA 145.34
BUENO HE PENSADO EN HACER QUE EL 145 QUEDE EN UNA VARIABLE MEDIANTE LEFT(ETC,3) Y EL 34 EN OTRA VARIABLE RIGHT(ETC,2) Y DESPUES LAS LLAMO DE NUEVO

VARIABLE DE LEFT & "." & VARIABLE DE RIGHT

PERO AQUI SE QUE ES 145.34 Y SE CUANTOS NUMEROS VOY A METER EN EL LEFT Y CUANTOS EN EL RIGHT, PERO Y SI SOLO FUERA 14.5 ó SI FUERA 1453.35 YA NO TENDRIA CONTROL.

No entiendo bien tu punto de vista pero un ejemplo no cae nada mal:

Private Sub Command1_Click()

Dim x As Integer
For x = 0 To List1.ListCount - 1
List1.ListIndex = x
List2.ListIndex = x

List3.AddItem Round((List1.Text * List2.Text), 2)

Next

End Sub

te acabo de mandar un mail con ejemplo
<fin de texto>

Dale un Fromat:
AMRMAT(LIST4.ADDITEM (LIST3.LIST(A) * LIST2.LIST(A)) , "$ ##,###.#0")
y ya con esto te salen los decimales segun la suma o multiplicacion.

Saludos

Dale un Fromat:
Format(LIST4.ADDITEM (LIST3.LIST(A) * LIST2.LIST(A)) , "$ ##,###.#0")
y ya con esto te salen los decimales segun la suma o multiplicacion.

Saludos