Dim lcHeader As String = ""
        Dim loInternetExplorer As Object = Nothing
        Dim loString As Framework.StringFunction = New Framework.StringFunction(oApp)

        ' Convert to Base64
        loString.cText = "username:password"
        If Not loString.ConvertToBase64FromText() Then
            MessageBox.Show(loString.cMessage)
        End If

        lcHeader = "Authorization: Basic " + loString.cEncoded + oApp.cCR

        ' Sharepoint
        loInternetExplorer = CreateObject("InternetExplorer.Application")
        loInternetExplorer.Visible = True
        loInternetExplorer.Navigate2("https://www.mysite.com/SitePages/Home.aspx", Nothing, Nothing, lcHeader)
        loInternetExplorer.Top = 1
        loInternetExplorer.Left = 220
        loInternetExplorer.Width = 1340
        loInternetExplorer.Height = 1036
        Do While (loInternetExplorer.Busy)
            System.Threading.Thread.Sleep(100)
        Loop