Get now playing from VLC

On Error Resume Next
Set xmlDoc = CreateObject("Msxml2.XMLHTTP.6.0")
Dim cur_playing

For i = 1 to 10
    i=1

    xmlDoc.Open "GET","http://localhost:8080/requests/status.xml", false
    xmlDoc.send()

    cur_playing = Null
    cur_playing = xmlDoc.responseXML.selectSingleNode("root/information/category/info[@name = 'now_playing']").text
    If IsEmpty(cur_playing) Or IsNull(cur_playing) Then
        cur_playing = xmlDoc.responseXML.selectSingleNode("root/information/category/info[@name = 'artist']").text _
                      & " - " & _
                      xmlDoc.responseXML.selectSingleNode("root/information/category/info[@name = 'title']").text
    End If

    Set objFSO=CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile("nowplaying.txt",2)  'txt file must be ANSI
    objFile.Write cur_playing & vbCrLf
    objFile.Close

    WScript.Sleep 5000

Next