IsNumeric – Check whether an object is storing a numeric value

' Check whether an object is storing a numeric value' Examples:'    Dim s As String = "hello"'    Dim d As Double = 2.4'    Dim i As Integer = 5'    Debug.WriteLine(IsNumeric(d))   ' => True'    Debug.WriteLine(IsNumeric(s))   ' => False'    Debug.WriteLine(IsNumeric(i))   ' => TrueFunction IsNumeric(ByVal val As Object) As Boolean    Return TypeOf val Is System.Decimal OrElse TypeOf val Is System.Single _        OrElse TypeOf val Is System.Double OrElse TypeOf val Is System.Int16 _        OrElse TypeOf val Is System.Int32 OrElse TypeOf val Is System.Int64End Function