Visual Basic - Currency -- fallo en una PC

Hola tengo un proyecto que muestra XXX montos en pantalla, claro tengo que utilizar la moneda del pais

para ello coloco
format(monto,"currency")
me habia funcionado en la pc del trabajo, en la pc de mi novia y en la pc de mi hermano, pero no funciona en mi laptop ? acoto que se uso el mismo cd de visual estudi para las 4 maquinas

No tienes que "acotar que usaste el mismo cd de visual estudi para las 4 maquinas" , lo que deberías indicarnos es qué error te da o qué sucede.
También, podrías ir viendo si es problema de la configuración regional, pero es que sin indicarnos el error o lo que hace tu programa no podemos ayudarte demasiado ...

el error me da en esta linea de codigo

Private Function Lista(ByVal Tabla As String)
sql = "select * from " & Tabla
AdoCargar.Open sql, AdoConexion, adOpenDynamic, adLockOptimistic
Me.LstPrecios.ListItems.Clear
Do While Not AdoCargar.EOF
Set itmX = LstPrecios.ListItems.Add(, , AdoCargar!Id_Precio)
itmX.SubItems(1) = AdoCargar!Muestras
---> itmX.SubItems(2) = Format((AdoCargar!listaprecio1), "currency")
itmX.SubItems(3) = Format((AdoCargar!listaprecio2), "currency")
itmX.SubItems(4) = Format((AdoCargar!listaprecio3), "currency")
AdoCargar.MoveNext
Loop

AdoCargar.Close
End Function

Me dice que le argumento no es valido, es como si a la funcion le faltara algo, pero no le falta nada!?, que creen me tocara volver a instalar el visual basic?

Pos si funcó en todos esos y no funcó en tu laptop es que la culpa es del laptop
aunque de la pc del trabajo y la pc de tu hermano nos fiamos, pero de la pc de tu novia despues de mostrar XXX, pos como que no estoy muy seguro mano.

y pregunto yo ¿no seria mejor que en vez de mostrar las XXX mostraras una de walt disney? quizá tu novia estara mas contenta!.

y por cierto.. no indicas si funcó en la tuya ¿o es que no tienes pc?

Es relevante que tenga pc o no !? no tienes que jurungarte en el ombligo ? juega con una bola de papel ! ah y podrias hacerle un gran favor al mundo ! desaparecete ! ok