Export CSV file Character set : UTF-8

Følgende eksporter indholdet af en tabbel til en  *.csv fil - den skal gerne eksporteres med UTF-8 karakter sæt ... hvor skal det indsættes i koden ???

Public Function Export_BookingStatus()
Dim trz As Integer
Dim strCSV As String

For trz = 1 To 511
Close #trz
Next trz
trz = FreeFile
Open "C:\Data.noncritical\Watson EDW Data\EDW_BookingStatus.csv" For Output Access Write As #trz

With CurrentDb.OpenRecordset("Export BookingStatus")
Dim x As Integer
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & .Fields(x).Name & ";"
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)

Do Until .EOF
strCSV = ""
For x = 0 To .Fields.Count - 1
strCSV = strCSV & strColumnDelimiter & Nz(.Fields(x), "<NULL>") & ";"
Next x
Print #trz, Mid(strCSV, Len(strColumnDelimiter) + 1)
.MoveNext
Loop
End With
Close #trz

End Function