'-------------------------------------------
'半角0〜9の間か判定します
'[引数]
' value : 判定する値
'[戻り値]
'0〜9の場合：True それ以外：False
'-------------------------------------------
Function IsNum(value) As Boolean
    
    Dim i   As Long
    Dim flg As Boolean

    For i = 1 To Len(value)
        
        Select Case Asc(Mid(value, i, 1))   '一文字づつ抽出
            Case 48 To 57   '0〜9の場合
                flg = True
            Case Else       'それ以外の場合
                flg = False
                Exit For    '見つかった時点で処理終了
        End Select

    Next i

    IsNum = flg   '結果を返す

    '【結果】
    ' 引数:123      戻り値:True
    ' 引数:１２３   戻り値:false
    ' 引数:１２.３  戻り値:false

End Function