Sure!
Example:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17:
Dim val As Integer Dim myString As String val = 1 myString = "test" Select Case val Case 1 Select Case myString Case "test" Stop Case "test1" Case "test2" End Select Case 2 Case 2 End Select