Visual Basic - Separador decimal coma o punto

Como puedo detectar desde el código cual es el separador de decimales del Sistema (coma o punto). Hay alguna variable a la que pueda llamar que lo indique

La idea es hacer un programa que al detectar cual es el separador decimal del sistema, coja las cadenas que representan numeros y cuando detecte la coma o punto la sustituya por el separador decimal del sistema para que al hacer Val(cadena) no trunque el valor y se quede solo con la parte entera si el separador decimal no era correcto.

Gracias por la ayuda

Fijate con:

Public Const LOCALE_SDECIMAL = &HE

Public Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Public Function GetLocaleDecimalSep() As String
Dim strBuffer As String

strBuffer = String(255, " ")

GetLocaleInfo GetUserDefaultLCID, LOCALE_SDECIMAL, strBuffer, 255

GetLocaleDecimalSep = Trim(Replace(strBuffer, Chr(0), ""))

End Function