'Create InternetExplorer ActiveX Object
Set oIE = CreateObject("InternetExplorer.Application")

'Credentials are set in the header
Dim sHeader, sEncHeader As String
sHeader = sAutomationLogin & ":" & sAutomationPassword
sEncHeader = EncodeBase64(StrConv(sHeader, vbFromUnicode))
sEncHeader = "Authorization: Basic " & sEncHeader & Chr$(13) & Chr$(10)

'Navigate to URL
For iCount = 1 To UBound(sCollectionUrl) + 1
  
  sUrl = sCollectionUrl(iCount - 1)
  
  If iCount = 1 Then
	 Call oIE.navigate(sUrl, , , , sEncHeader) 'Navigate first already opened tab
	 'Set IE.Visible = True to make IE visible, or False for IE to run in the background
	 oIE.Visible = bVisibe
  Else
	 Call oIE.navigate(sUrl, CLng(2048), , , sEncHeader) 'Navigate and open new tab
  End If
....




Private Function EncodeBase64(ByRef arrData() As Byte) As String

   Dim objXML As MSXML2.DOMDocument60
   Dim objNode As MSXML2.IXMLDOMElement
   
   ' help from MSXML
   Set objXML = New MSXML2.DOMDocument60
   
   ' byte array to base64
   Set objNode = objXML.createElement("b64")
   objNode.DataType = "bin.base64"
   objNode.nodeTypedValue = arrData
   EncodeBase64 = objNode.Text
   
   ' thanks, bye
   Set objNode = Nothing
   Set objXML = Nothing

End Function