Excel macro - save to files from cells problem

Hi friends
If anybody can help about next problem
I found next macro on net
and working very good for outputting Excel rows to a series of text files

Getting name of file from first row and save content of cell from second row to a file (csv or text)

BUT problem is how output (export) from cells to files with UTF-8 format?

Any help possible?

Here is macro
**************************

Sub DataDump()

    Dim X
    Dim lngRow As Long
    Dim StrFolder As String

    StrFolder = "C:\temp"
    X = Range([a1], Cells(Rows.Count, 2).End(xlUp))
    For lngRow = 1 To UBound(X)
    Open StrFolder & "\" & X(lngRow, 1) & ".txt" For Output As #1
    Write #1, X(lngRow, 2)
    Close #1
    Next
    End Sub

*****************************