Correcting If statement looking for multiple strings

[ravi.gajul]

GroupName="CLIENT DOCUMENTS"

Code:

If not strcomp(GroupName,"CLIENT DOCUMENTS - WBS",1)=0 or  strcomp(GroupName, "COMMISSION REPORTS BY SUB / BRANCH / REP",1)=0 or  strcomp(GroupName,"BRANCH REPORT SEARCHES",1)=0 or strcomp(GroupName, "SUB-FIRM REPORT SEARCHES",1)=0 or  strcomp(GroupName,  "FIRM REPORT SEARCHES",1)=0    then
    '......................... <your code>.......................................
    
End If

'*******************
'alternatively you can also go for switch case (better performance over 'the above)
GroupName="something"

Code:

Select Case GroupName
Case "CLIENT DOCUMENTS - WBS"
    'msgbox  "CLIENT DOCUMENTS - WBS"
Case  "COMMISSION REPORTS BY SUB / BRANCH / REP"
'    msgbox "COMMISSION REPORTS BY SUB / BRANCH / REP"
Case "BRANCH REPORT SEARCHES"
    'msgbox "BRANCH REPORT SEARCHES"
    Case  "SUB-FIRM REPORT SEARCHES"
        'msgbox  "SUB-FIRM REPORT SEARCHES"
        Case else
            '*******************************your code here******************************************************
    msgbox "not in list"
End Select