判斷輸入值全為數字的函式

在實際專案中有時候需要判斷輸入的值是否全為數字，然而直接用判斷數字的一些函式如Val()和Isnumeric()等 對"+"號，"-"號，還有小數點不能直接過濾，下面的函式實現判斷功能，如果全為數字返回True，如果有非數字返回False。

    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