Queries :: Export To Text File

I have 30+ queries (or table columns) I wish to export to txtfile files that I need to be able to replace each time the table and / or queries are updated.

This is the code I've used but when I run the macro the error message is that the FreeFile is not a valid outside procedure. The code debugs without issues up to but not including the macro.

Option Compare Database
Dim fFile As Long
Dim strFile As String
Dim strString As String
Dim Rs As Recordset
Dim RsSql As String

[code]....