Codierung von Text-Dateien in VB 6.0

Habe ich einige vb6-code zu ändern, der Datei-Codierung ANSI-Kodierung UTF-8.

'--- start function for convert to UTF-8

Private Function OpenAppendUTF8(ByVal FileName As String) As Integer
    OpenAppendUTF8 = FreeFile(0)
    Open FileName For Binary Access Write As #OpenAppendUTF8
    Seek #OpenAppendUTF8, LOF(OpenAppendUTF8) + 1
End Function

Sub DeleteFile(ByVal FileToDelete As String)
   If Dir$(FileToDelete) = "" Then  'See above
   Else
      SetAttr FileToDelete, vbNormal
      Kill FileToDelete
   End If
End Sub
'-

Private Sub WriteUTF8( _
    ByVal FNum As Integer, _
    ByVal Text As String, _
    Optional ByVal NL As Boolean)

    Dim lngResult As Long
    Dim UTF8() As Byte

    If NL Then Text = Text & vbNewLine
    lngResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(Text), Len(Text), _
                                    0, 0, 0, 0)
    If lngResult > 0 Then
        ReDim UTF8(lngResult - 1)
        WideCharToMultiByte CP_UTF8, 0, StrPtr(Text), Len(Text), _
                            VarPtr(UTF8(0)), lngResult, 0, 0
        Put #FNum, , UTF8
    End If
End Sub
'------- end function for convert to UTF-8
'>>> coding 
             Dim ReadString As String
             Dim writeString As String
             Dim txtNotepad As String
             Dim FileNumber As Integer
             Dim UTF8 As String
             Dim strsql  As String
             Dim iloop As Integer
             FileNumber = FreeFile(1)                
                '--- if you need to delete file first.
                DeleteFile App.Path & "\PRB\fieldRules.txt"
                '---
                FileNumber = OpenAppendUTF8(App.Path & "\PRB\fieldRules.txt")
                iloop = 1
                Do While iloop > 0
                     iloop = InStr(1, txtNotepad, "\n")
                     '  "\n" for end of line 

                     If iloop <= 5 Then
                        iloop = 0
                     Else
                        'writeString = Mid(txtNotepad, 1, iloop - 1)
                        'Print #FileNumber, writeString
                        WriteUTF8 FileNumber, Mid(txtNotepad, 1, iloop - 1), True
                        txtNotepad = Mid(txtNotepad, iloop + 3, 9999)
                     End If
                Loop
                Close #FileNumber
<<<< end code