Hvordan gør jeg disse 2 ting

Jeg har lavet følgende makro i Access.
Det jeg gerne vil have den til er at skrive længden af den forgående body i starten er hvor sætning den bygger.

Og stedet for den sætter den ind i en mail så vil jeg gerne havde det som  output til en txx fil

I forbindelse med længden havde jeg tænkt mig følgende men det kan jeg ikke få til at virke

bodylangde=len(body)
body = body + bodylangde + id + CStr(BA!Refnr) + brevid + CStr(BA!


Dim dbs

Set dbs = CurrentDb

Dim taller
    taller = 1
    Dim BA As Recordset
   
        Set BA = New Recordset
        BA.CursorLocation = adUseClient
        BA.Open "select * from [filtilbd1]", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        BA.MoveFirst
Dim langer As Integer

Dim body
Dim id
Dim dimbrevid
  id = "opr001"
brevid = "Her kommer brev1"
body = ""
langer = 0

Do Until BA.EOF


body = body + id + CStr(BA!Refnr) + brevid + CStr(BA!kørsel1) + vbCrLf
 
BA.MoveNext

 
  Loop

DoCmd.SendObject , "", "", "labr", "", "", "Netbank", body, False, ""