【構文例】 wk = InputBox("数値または文字を入力してください") If IsNumeric(wk) Then MsgBox wk & "は数値です。" Else MsgBox wk & "は数字ではないです。" End If