Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "http://air.radiotime.com/Playing.ashx?partnerId=<ID>&partnerKey=<key>&id=<station>&title=blank&artist=blank", False
o.send

Function HandleLine(sLine)
  divisao = (sline)
  divisao = split(divisao,"-")

  SongInfo.Value("artist") = (Trim(divisao(0)))
  SongInfo.Value("title") = (Trim(divisao(1)))
  SongInfo.Value("songtype") = "S"

  SongInfo.DoSongChange
End Function