Dim documentUri As Uri = New Uri(feed.Entries(0).Content.AbsoluteUri + "&exportFormat=docx&format=docx")
    Dim stream As Stream = service.Query(documentUri)
    Dim streamReader As StreamReader = New StreamReader(stream)
    Dim streamWriter As StreamWriter = New StreamWriter("C:\download.docx")
    Dim line As String = streamReader.ReadLine()
    While (line <> Nothing)
        streamWriter.WriteLine(line)
        line = streamReader.ReadLine()
    End While
    streamReader.Close()
    streamWriter.Flush()
    streamWriter.Close()