JIRA REST API FOR Excel VBA

Here is my solution for Excel-VBA with Basic Authorization.

Sub Test() 
    Dim msg As Variant 
    msg = GetText() 
    ExtractData (msg)
End Sub
Public Function ExtractData(text As String)
    ' extract

End Function 
Public Function GetText() As String
    Dim JiraAuth 
    Set JiraAuth = CreateObject("MSXML2.XMLHTTP.6.0")
    Dim sUsername As Variant
    Dim sPassword As Variant
    Dim sEncbase64Auth As Variant
    Dim msg As Variant
    sUsername = "yourusername"  
    sPassword = "yourpassword"
    sEncbase64Auth = EncodeBase64(sUsername & ":" & sPassword)
    GetText = ""
    With JiraAuth
        .Open "GET", "http://yourjira/rest/api/", False
        .setRequestHeader "Accept-Language", "en-US,en,q=0.8,zh-cn,q=0.7"
        .setRequestHeader "Accept-Encoding", "gzip,deflate"
        .setRequestHeader "Authorization", "Basic " & sEncbase64Auth
        .send
        GetText = .responseText
    End With
End Function
Public Function EncodeBase64(text As String) As String
    Dim arrData() As Byte
    arrData = StrConv(text, vbFromUnicode)
   
    Set objXML = CreateObject("MSXML2.DOMDocument")
    Set objNode = objXML.createElement("b64")
  
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    EncodeBase64 = objNode.text
  
    Set objNode = Nothing
    Set objXML = Nothing
End Function