i wrote the following section below. when debugging, i see that i enter the first Case okay. my problem is with the second Case - it does not enter it and goes to the error messege.

what do i do wrong?

Select Case Data_Rate
  Case "1", "2", "5.5", "11", "6", "9", "12", "18", "24", "36", "48", "54"
    a = Data_Rate

    Select Case Date_Rate
      Case "1"
        b = 2
      Case "2", "5.5", "11"
        b = 1
      Case Else:
        MsgBox ("ERROR - Data_Rate")
    End Select

  Case "0", "1", "2", "3", "4", "5", "6", "7"
    a = 3
  Case Else:
    MsgBox ("ERROR - Data_Rate")
End Select