Check regional settings

Function  CheckRegionalSettings() As Boolean

Dim i As Integer
Dim temp1 As String

'check for Regional Setting
ChDir App.Path
Open "temp.txt" For Output As #1
Dim s As Single
s = 12.23
Print #1, s
Close #1
Open "temp.txt" For Input As #1
Line Input #1, temp1
Close #1
i = InStr(temp1, "," )
If i <> 0 Then
   CheckRegionalSettings = True
Else
   CheckRegionalSettings = False
End If
end Function