Private Function DownloadFile(ByVal NomeFile As String, ByVal Tipo As Document.DownloadType) As String
    Dim myService As DocumentsService, authFactory As GAuthSubRequestFactory
    Dim Request As DocumentsRequest, reqSettings As RequestSettings
    Dim Documento As Document, File As StreamWriter

    myService = New DocumentsService(String.Format("{0}-{1}-1", App, Comp))
    myService.setUserCredentials("eMail", "Psw")

    authFactory = New GAuthSubRequestFactory("writely", String.Format("{0}-{1}-1", App, Comp))

    reqSettings = New RequestSettings(authFactory.ApplicationName, myService.Credentials)
    Request = New DocumentsRequest(reqSettings)

    For Each Documento In Request.GetDocuments().Entries
        If Documento.Title.ToLower = NomeFile.ToLower Then
            'Download
            File = New StreamWriter(Request.Download(Documento, Tipo))
            File.Flush()

            Return File.ToString()
        End If
    Next

    Return ""
End Function