条件分岐なに使う？

Sub いつものIF文()

     'Dim Tensu As Long   'テストの点数
     Dim Tensu As String 'テストの点数
     Dim Flg As Boolean    '論理値を表す変数（ブール型）
     
     Tensu = Application.InputBox("テストの点数は？キャンセル時は０点です")
    Debug.Print Tensu
    
      'テストの点数>=80の時、合格(True)とする
      'Flg = False       'ブール型の初期値はFalse
      If Tensu >= 80 Then Flg = True
      
      'Flgが真か偽か？
      If Flg Then
            MsgBox "合格です"
      Else
            MsgBox "不合格です"
      End If
      
End Sub

Sub ElseIf文()

    Dim Tensu As Long    'テストの点数
        
    Tensu = Application.InputBox("テストの点数は？キャンセル時は０点です", Type:=1)
    
    'ElseIf文で
    If Tensu >= 80 Then
           MsgBox "超優秀です"
    ElseIf Tensu >= 70 Then
            MsgBox "優秀です"
    ElseIf Tensu >= 60 Then
        MsgBox "凡人です"
    Else
        MsgBox "もっと努力しましょう"
    End If
    
End Sub

Sub ElseIf文入れ子()
    Dim Tensu As Long    'テストの点数
        
     Tensu = Application.InputBox("テストの点数は？キャンセル時は０点です", Type:=1)

  '入れ子のIF文

    If Tensu >= 80 Then
           MsgBox "超優秀です"
    Else
        If Tensu >= 70 Then
                MsgBox "優秀です"
        Else
            If Tensu >= 60 Then
                MsgBox "凡人です"
            Else
                MsgBox "もっと努力しましょう"
            End If          '60点の判断のendif
        End If              '70点の判断のendif
     End If                 '80点の判断のendif
End Sub

Sub SelectCase文()
Dim SaikoroNoMe As Long
    
    SaikoroNoMe = Int((6 * Rnd) + 1)          '１～６までの乱数を発生させる
        
    Select Case SaikoroNoMe
        Case 1
            MsgBox "特賞"
        Case 2
            MsgBox "１等賞"
        Case 3
            MsgBox "2等賞"
        Case 4
            MsgBox "3等賞"
        Case 5
            MsgBox "４等賞"
        Case Else
            MsgBox "はずれ"
    End Select
 End Sub

Sub SelectCase文2()
 
    Dim Tensu As Long    'テストの点数
    
    Tensu = Application.InputBox("テストの点数は？キャンセル時は０点です", Type:=1)
        
    Select Case Tensu
    
        Case 100
            MsgBox "満点です"
            
        Case 95, 96, 97, 98, 99
            MsgBox "素晴らしいです"
            
        Case 80 To 94
            MsgBox "優秀です"
            
        Case Is >= 50
            MsgBox "ぼちぼちです"
            
        Case Else
            MsgBox "もっとがんばれ！"
            
    End Select

End Sub