VBAでxmlを扱ってみた

Sub GetUserId()
   Const URL_H As String = "http://api.twitter.com/1/statuses/show/"
   Const URL_ID As String = "Twitterの記事ID"
   Const URL_F As String = ".xml"

   Dim i As Long
   Dim xDoc As Object, nodeList As Object, obj As Variant

   Set xDoc = CreateObject("MSXML2.DOMDocument")
   xDoc.async = False

   If xDoc.Load(URL_H &  URL_ID   & URL_F) Then
       Set nodeList = xDoc.DocumentElement.SelectNodes("/status/user/id")
       For Each obj In nodeList
           Debug.Print obj.Text
       Next obj
   End If

   Set xDoc = Nothing
End Sub