Visual Basic 6和UTF-8

Question

目前我有一个古老的VB6程序，打开文本文件如下

Public Function ApriFile(sFile As String, iCanale As Integer) As Boolean
  On Error GoTo ApriFileErr
  ApriFile = False
  NumberError = 0
  sErrore = ""

  Close #iCanale

  'Apertura archivio di input
  Open sFile For Input As #iCanale

  ApriFile = True
  Exit Function

ApriFileErr:
  ApriFile = False
  'Errore nell'apertura del file
  If Err.Number <> 0 Then
    NumberError = Err.Number
    sErrore = Err.Description
  End If

End Function

如何使用UTF8字符集？

我需要打开文件，使用UTF-8字符集逐行读取，然后使用相同的字符集在另一个文件上写入。