problemas con xml y vb6

[chei]

por si a alguien le interesa ya lo he solucionado
pongo el codigo

Function WriteUTF8(sText As String, sFile As String) As Boolean
' Returns True if sText saved successfully as UTF-8 in sFile

On Error GoTo Oops

#If EarlyBound Then
' Requires a reference to Microsoft ActiveX Data Objects
With New ADODB.Stream
#Else
' No reference required
Const adTypeText As Long = 2
Const adSaveCreateOverWrite As Long = 2
With CreateObject("ADODB.Stream")
#End If
.Type = adTypeText
.Charset = "utf-8"
.Open
.WriteText sText
.SaveToFile FileName:=sFile, _
Options:=adSaveCreateOverWrite
WriteUTF8 = True
End With
Exit Function

Oops:
MsgBox Err.Description
End Function

Ahora estoy intentando hacer el siguiente paso que seria leer de un fichero UTF-8 si alguien tiene alguna idea????