Here's another function using pure vb code only:

Code:
Public Function DecimalSep() As String
   DecimalSep = Format$(0.1, ".")
End Function