Определить, является ли заданная строка записью целого числа, записью вещественного числа, или строку нельзя преобразовать в число - VB

Function NumberType(ByVal value As String) As Integer
    Dim retval As Integer
    Dim DecimalSeparator As String
    'Определение, что является десятичным разделителем в системе
    DecimalSeparator = IIF(IsNumeric("1.23"), ".", ",")
    'Проверяем, является ли значение числом
    If IsNumeric(value) Then
        'Если является, то проверяем наличие десятичного разделителя
        retval = IIF(InStr(value, DecimalSeparator) <> 0, 0, 1)
    Else retval = -1
    NumberType = retval
End Function