Msgbox not appearing

[salvelinus]

dim strCode as string
 
strcode = Textbox1.Text
 
Select Case strcode
   case "AN", "AAN", "ANN", "AANN", "ANA, "AANA"
      msgbox "OK"
   case else
      msgbox "Not OK"
end select