Public Overloads Function IsNumeric(ByVal Value As Object) As Boolean
Dim RegEx As Regex
If Not Value Is Nothing Then
RegEx = New Regex("(\+|-)?[0-9][0-9]*(\.[0-9]*)?")
If RegEx.IsMatch(Value.ToString) AndAlso RegEx.Match(Value.ToString).Length = CType(Value, String).Length Then
Return True
Else
Return False
End If
Else
Return False
End If
End Function