Gem excel-fane som unicode tekst *txt

Hej.

Jeg har behov for en makro i Excel der kan gemme en fane som en *.txt.
Det skal være Unicode tekst, og jeg har fundet følgende i en anden tråd.
Denne fungerer fint, men gemmer som I kan se det valgte som en CSV-fil. Hvad skal jeg ændre for at få det til at fungere til unicode-tekst???

Jeg har prøvet at udskifte CSV med TXT i koden, men det resulterer i en fejl jeg ikke kan gennemskue.

ps. Det skal være tabulatorsepereret.


Sub EksportAsCSV()
Const Delim    As String = ","  'afgrænser (delimiter)
Dim y          As Long          'tæller
Dim x          As Long          'tæller
Dim strTemp    As String        'streng til de enkelte rækker
Dim lRows      As Long          'antal rækker
Dim lCols      As Long          'antal kolonner
Dim lFno      As Long          'fil nummer
Dim CSVFilename As String
Dim rngOmr As Range

Set rngOmr = Application.InputBox("Marker området der skal eksporteres :", "Marker Område", , , , , , 8)
CSVFilename = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv")
If CSVFilename = "False" Then Exit Sub

lFno = FreeFile
lRows = rngOmr.Rows.Count
lCols = rngOmr.Columns.Count
Open CSVFilename For Output As #lFno

For x = 1 To lRows
    strTemp = ""
    For y = 1 To lCols
        strTemp = strTemp & &chr(34) & rngOmr(x, y).Text & chr(34)
        If y < lCols Then
            strTemp = strTemp & Delim
        Else
            Print #lFno, strTemp
        End If
    Next

Next
Close #lFno

End Sub