Select-Caseステートメント SAMPLE(Excel VBA)

shiken3()

Sub shiken3()
    Dim tensuu As Integer
    tensuu = Range("C26").Value
    If tensuu >= 80 Then
        MsgBox "合格です"
    Else
        If tensuu >= 60 Then
            MsgBox "追試です"
        Else
            MsgBox "不合格です"
        End If
    End If
End Sub

waribiki()

Sub waribiki()
    Dim kingaku As Currency
    kingaku = Range("C33").Value
    If Range("D33").Value = "一般" Then
        If kingaku >= 50000 Then
            MsgBox "一般：15%割引です"
        Else
            If kingaku >= 30000 Then
                MsgBox "一般：10%割引です"
            Else
                If kingaku >= 10000 Then
                    MsgBox "一般：5%割引です"
                Else
                    MsgBox "一般：割引なしです"
               End If
            End If
        End If
    Else
        If Range("D33").Value = "会員" Then
            If kingaku >= 50000 Then
                MsgBox "会員：30% 割引です"
            Else
                If kingaku >= 30000 Then
                    MsgBox "会員：20%割引です"
                Else
                    If kingaku >= 10000 Then
                        MsgBox "会員：10%割引です"
                    Else
                        MsgBox "会員：割引なしです"
                    End If
                End If
            End If
        End If
    End If
End Sub

iro()

Sub iro()
    Select Case Range("C34").Value
    Case "RED"
        strIro = "RED"
    Case "BLUE"
        strIro = "BLUE"
    Case "PINK"
        strIro = "PINK"
    Case "GREEN"
        strIro = "GREEN"
    Case Else
        strIro = "RED.BLUE.PINK.GREENのいずれかを入力してください"
    End Select
        MsgBox strIro
End Sub