InputBox

Sub InputBox関数()
    Dim Tensu As String 'テストの点数
    'Dim Tensu As Long
         
    Tensu = InputBox("テストの点数は？")
    
    If IsNumeric(Tensu) Then
            MsgBox Tensu & "　数値でした　点数＊５＝" & Tensu * 5
    Else
        MsgBox Tensu & "　数値ではない"
    End If
    
    'テストの点数が80以上の時、合格とする
    If Tensu >= 80 Then
          MsgBox "合格です"
    Else
          MsgBox "不合格です"
    End If
    
End Sub

Sub InputBoxメソッド()
    'Dim Tensu As Variant 'テストの点数
    Dim Tensu As Long 'テストの点数
        
     Tensu = Application.InputBox("テストの点数は？", Type:=1)
     
     If IsNumeric(Tensu) Then
        
        MsgBox Tensu & "数値でした" & Tensu * 5
    Else
        MsgBox Tensu & "数値ではない"
    End If
    
    'テストの点数が80以上の時、合格とする
    If Tensu >= 80 Then
          MsgBox "合格です"
    Else
          MsgBox "不合格です"
    End If
End Sub