Sub Test_BookMark_Append()
Dim filenr As Long
Dim Ffname As String
Dim Llname As String
Dim BD As String
Dim Adrs As String
Dim mypath
Dim Rng As Range
filenr = FreeFile
With ThisDocument
  Set Rng = .Bookmarks("FName").Range
  With Rng
    .End = .End - 1
    Ffname = .Text
  End With
  Set Rng = .Bookmarks("LName").Range
  With Rng
    .End = .End - 1
    Llname = .Text
  End With
  Set Rng = .Bookmarks("BirthDate").Range
  With Rng
    .End = .End - 1
    BD = .Text
  End With
  Set Rng = .Bookmarks("StreetAddress").Range
  With Rng
    .End = .End - 1
    Adrs = .Text
  End With
End With
'Lname = "Sam" '''' works
'Fname = "Dootie" '''' works
'BD = "70" '''' works
'Adrs = "1234 Myroad" ''''works
mypath = ThisDocument.Path & "\log.txt"
Open mypath For Append As #filenr
Print #filenr, Ffname & "," & Llname & "," & BD & "," & Adrs
Close #filenr
End Sub