如何简化许多“If Then Else”查询？

Question

你能给我一个关于如何使这样的代码更优雅的提示吗？

将来我需要更多这样的查询，我想做得更专业。

谢谢！

       If Case = "V" Then
            Case Is = "Sal"
        Else
            If Case = "K" Then
                Case Is = "Dep"
            Else
                If Case = "A" Then
                    Case Is = "Auf"
                Else
                    If Case = "M" Then
                        Case Is = "Mon"
                    Else
                        If Case = "T" Then
                            Case Is = "Tec"
                        Else
                            If Case = "W" Then
                                Case Is = "Ver"
                            Else
                                If Case = "B" Then
                                    Case Is = "Ber"
                                Else
                                    If Case = "P" Then
                                        Case Is = "Ver"
                                    Else
                                        GoTo GoNext
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If

Answer 1

用 Select Case

Sub test()

Dim strCode     As String
Dim strVal      As String

strCode = "B"

Select Case strCode
    Case "A"
        strVal = "Jan"
    Case "B"
        strVal = "Feb"
    Case "C"
        strVal = "Mar"
    Case Else
        strVal = "No match found"
End Select

End Sub