Excelde Seçili Ondalık Ayırıcı Makro İle tesbit edilebilir mi?

[hsayar]

Sub OndAyr()
OndAyrcBul = ?????
Msgbox "Ondalık ayracınız " & OndAyrcBul  & " noktalama işaretidir"
End Sub

gibi bir kod yazmak istesek ??? işareti yerine ne yazılmalı ve hangi API'ler deklare edilmelidir.
Saygılarımla.

 

[veyselemre]

Sub dene()
    With Application
        MsgBox "DecimalSeparator : [ " & .DecimalSeparator & " ]" & vbCr & _
        "ThousandsSeparator  : [ " & .ThousandsSeparator & " ]" & vbCr & _
        "UseSystemSeparators :" & .UseSystemSeparators
    End With
End Sub