Identificar formato moneda

[diper]

Necesito identificar si esta separado por punto o coma cuando me llega un dato tipo moneda o decima via xml a un componente vb.
Depende de donde proviene el xml los formatos numericos y de moneda son diferentes y yo necesito procesarlos igual.

[Hager]

creo que la solucion mas simple seria hacer una conversion a string de la siguiente manera

dim x as string,y
x="2000"
y=formatcurrency(x,2)
x=Cstr(y)
if instr(x,".")>0 then
msgbox "El formato es ."
else
msgbox "El formato es ,"
end if