Public Function FileTxtWr(ByVal sFile As String, _
                          ByRef sRow() As String) As Boolean

Dim sUTF As String
Dim iChn As Integer
Dim i As Integer

    sUTF = Chr$(239) & Chr$(187) & Chr$(191)
    sRow(1) = sUTF & sRow(1)
    iChn = FreeFile
On Local Error GoTo EH
    Open sFile For Output Shared As iChn
On Local Error GoTo 0
    For i = 1 To UBound(sRow)
        Print #iChn, sRow(i)
    Next i
    Close iChn
    FileTxtWr = True
Exit Function
    
EH:
    FileTxtWr = False
    
End Function