Imports System
Public Class Program
Public Shared Function IsFloatOrInt(ByVal str As String) As Boolean
Dim intValue As Integer
Dim floatValue As Single
Return Int32.TryParse(str, intValue) OrElse Single.TryParse(str, floatValue)
End Function
Public Shared Sub Main()
Console.WriteLine(IsFloatOrInt("40972"))
Console.WriteLine(IsFloatOrInt("3.14"))
Console.WriteLine(IsFloatOrInt("8729384572939438919191922562345634562435623098"))
Console.WriteLine(IsFloatOrInt("abc"))
End Sub
End Class
' run:
'
' True
' True
' False
' False
'