How to add a wildcard to a URL in VBA?

Sub getIE(ByRef objIE As Object, ByRef blnFoundWebSite As Boolean)
On Error GoTo ErrorRoutine
    Dim strURL      As Variant
    Dim strURLs     As String
    Dim objShell    As SHDocVw.ShellWindows
    Dim objIEDOC    As Object
    
    Set objShell = New SHDocVw.ShellWindows

' **** Set the Web Address Here ****
    strURLs = "https://servman/sm/index.do,https://servman/sm/index.do#,https://servman/sm/index.do?lang=en,https://servman/sm/index.do?lang=en&mode=index.do,https://servman/sm/index.do?lang=en&mode=index.do&logout_msg=LogoutPage.session_timeout"
  
    ' Look for the appropriate open IE Window
    For Each objIE In objShell
        If TypeOf objIE.Document Is MSHTML.HTMLDocument Then
            Set objIEDOC = objIE.Document
            If Not (objIEDOC Is Nothing) Then
                For Each strURL In Split(strURLs, ",")
                    If objIEDOC.URL = strURL Then
                        blnFoundWebSite = True
                        Exit For
                    End If
                Next
                If blnFoundWebSite = True Then Exit For
            End If
        End If
    Next
    
    On Error Resume Next
    Set objIE = objIE
    Set objIE = objIE.frames.Item(0)
    Set objIE = objIE.frames.Item(1)
    On Error GoTo 0
    
    
    Set objShell = Nothing
    Set objIEDOC = Nothing
    
Exit Sub
ErrorRoutine:

End Sub

Select allOpen in new window