Visual Basic 6.0 ile XMLHTTP Request

Private Sub Command1_Click()
    Dim sHTML
    sHTML = RequestText("http://www.tcmb.gov.tr/kurlar/today.xml")
   
    Text1.Text = sHTML
End Sub

Private Function RequestText(sURL, Optional sMethod = "GET")
    Dim XMLHTTP
    Set XMLHTTP = CreateObject("microsoft.XMLHTTP")
    sMethod = UCase(sMethod)
    XMLHTTP.Open sMethod, sURL, False
    XMLHTTP.send (Null)
    RequestText = XMLHTTP.responseText
    Set XMLHTTP = Nothing
End Function