Fra excel til txt via ftp!?

Nu hvor jeg har denne kode kan man udbygge den til at gå på en ftp og lave den txt fil og lave en fil "ready.con".txt som har navnet på den anden fil som koden her laver!?

Sub LagreSomTekstfil()
 
  Dim fso As FileSystemObject
  Dim fsoFld As folder
  Dim fsoFil As File
 
  Dim filnavn As String
  Dim rngCopyRange As Range
  Dim n As Variant
  Dim s As String
  s = ""
  Set rngCopyRange = ThisWorkbook.Sheets(1).Range("A1:A20")
  filnavn = "Lager Nr " & ThisWorkbook.Sheets(1).Cells(2, 2).Value & ".txt"
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fsoFld = fso.GetFolder("C:\SKRIV NAVNET PÅ DIN MAPPE HER\")
 
  If fso.FileExists(fsoFld & "\" & filnavn) Then
    n = 1
    Do While fso.FileExists(fsoFld & "\" & Left( _
      filnavn, Len(filnavn) - 4) & " " & n & ".txt")
      n = n + 1
    Loop
    s = " "
  End If
  filnavn = Left(filnavn, Len(filnavn) - 4) & s & n & ".txt"
 
  With Workbooks.Add
    With Sheets(1)
      .Range("A1:A20").Value = rngCopyRange.Value
      ActiveWorkbook.SaveAs Filename:=fsoFld & "\" & filnavn, FileFormat:=xlText
    End With
    Application.DisplayAlerts = False
    .Close
    Application.DisplayAlerts = True
  End With
 
  Set fso = Nothing
  Set fsoFld = Nothing
End Sub