pues podrías usar el control Inet

With Inet1
        .AccessType = icUseDefault
        .UserName = "tu_usuario"
        .Password = "tu_password"
        .URL = "http://Servidor/Archivo.txt"
        .Execute "PUT"
wend

Private Sub Inet1_StateChanged(ByVal State As Integer)
   ' Obtiene la respuesta del servidor con el método
   ' GetChunk cuando State = 12.

   Dim vtData As Variant ' Variable de datos.
   Select Case State
   ' ... Otros casos no mostrados.
   Case icError ' 11
      ' En caso de error, devuelve ResponseCode
      ' y ResponseInfo.
      vtData = Inet1.ResponseCode & ":" & _
      Inet1.ResponseInfo
   Case icResponseCompleted ' 12
      Dim vtData As Variant
      Dim strData As String
      Dim bDone As Boolean: bDone = False

      ' Obtiene el primer bloque.
      vtData = Inet1.GetChunk(1024, icString)
      DoEvents

      Do While Not bDone
         strData = strData & vtData
         ' Obtiene el siguiente bloque.
         vtData = Inet1.GetChunk(1024, icString)
         DoEvents

         If Len(vtData) = 0 Then
            bDone = True
         End If
      Loop
      txtData.Text = strData
   End Select
   
End Sub