Visual Basic 6 and UTF-8

问题:

currently I have a ancient VB6 procedure that open text file as follow

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

How can use the UTF8 charset?

I need to open the file, read line by line using the UTF-8 charset and then write on another file always with the same charset.