Private Function intFun(ByVal Str As String) As Boolean
Dim flag As Boolean = True
For i As Integer = 0 To Str.Length - 1
Dim SubStr As String = Str.Substring(i, 1)
If Char.IsNumber(SubStr) = False Then
flag = False
Exit For
End If
Next
Return flag
End Function
Dim flag As Boolean = True
For i As Integer = 0 To Str.Length - 1
Dim SubStr As String = Str.Substring(i, 1)
If Char.IsNumber(SubStr) = False Then
flag = False
Exit For
End If
Next
Return flag
End Function