Un método sencillo de averiguar el signo decimal.
Temp = Format$(1.5, "#.#") If InStr(Temp, ",") Then Decimal = "," Else Decimal = "." End If