FROM LESSON 4: MAKING DECISIONS WITH SELECT CASE



  Dim sngSalesTaxRate As Single
        Dim strStateChosen As String

        '---capitalize what they typed using the UCase built-in C# function
        strStateChosen = UCase(txtState.Text)

        Select Case strStateChosen

            Case "CA"
                sngSalesTaxRate = 0.08
            Case "AZ"
                sngSalesTaxRate = 0.05
            Case "NV"
                sngSalesTaxRate = 0.01
            Case "OR"
                sngSalesTaxRate = 0.06

            Case Else
                MsgBox("Please enter CA, AZ, OR, NV")
                txtState.Text = ""
                txtState.Focus()
                Exit Sub
        End Select