Select Case, can I add two parameters here, convert string problems

[tracey]

Hi Guys, still trying to fix the problem. 

Door_Lower and Door_Upper have derived values of KK and L.  Trying to get the code to choose a Door (Case1, etc)

Any thoughts

Dim expression As String = (Door_Lower) AndAlso (Door_Upper) 
Select Case (Door_Lower) AndAlso (Door_Upper)       
    Case 1 "AA","BB","CC","DD","EE","FF","II","JJ","KK","LL","OO","PP","QQ","GG","HH","MM","NN"
        
        MsgBox("Door E6 Both")
            
    Case 2 "GG","HH","MM","NN","G","H","M","N"
        
        MsgBox("Door E2E4 Both")
        
    Case 4 "A","B","C","D","E","F","I","J","K","L","O","P","Q","G","H","M","N"
        
        MsgBox("Door E6 Lower.")
            
    Case 4 "GG","HH","MM","NN","A","B","C","D","E","F","I","J","K","L","O","P","Q","G","H","M","N"
        
        MsgBox("Door E6 Upper.")
        
    Case Else 
    
        MsgBox("No match found.")
           
End Select

[bretrick30]

Hi,

I know I'm kind of late to the party, but you are still having issues with this,  remove the number after the cases:

Case "AA","BB","CC","DD","EE","FF","II","JJ","KK","LL","OO","PP","QQ","GG","HH","MM","NN"