Indsæt navn felt som navn på en fil

Jeg har et meget stort problem. Hvordan kan jeg indsætte en id på filen som nedståend kode sender.

Sub TestFTPUpload()
On Error GoTo ErrHandler
Dim objFTP As FTP
Const conTARGET = "ftp://ftp.server.dk"
  Set objFTP = New FTP
  With objFTP
    .FtpURL = conTARGET
    .SourceFile = "C:\Sendbogføring.txt"
    .DestinationFile = "/FILEN SKAL NAVNGIVES MED ET FELT FRA EN TABEL.txt"
    .AutoCreateRemoteDir = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToFTPHost "**", "**"
    .UploadFileToFTPServer
  End With
ExitHere:
  On Error Resume Next
  Set objFTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source
  Resume ExitHere
End Sub