IsNumeric

IsNumeric 写道

Public Function Number_Check(ByVal str As String) As Boolean
Dim i As Integer = Len(str)
Dim j As Integer
Dim flag As Boolean = True
For j = 1 To i
If IsNumeric(Mid(str, j, 1)) Then
flag = True
Else
flag = False
Exit For
End If
Next
Return flag
End Function