Cita:
Iniciado por 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????
mmm bueno si el fichero lo almacenaste en un archivo de texto puedes hacer lo siguiente
Dim linea as String
n_file = FreeFlile
Open "ubicacion\ficheroutf8.txt" For Input As n_file
Line input #n_file, linea
Close #n_file 'es recomendable cerrar los archivos que estes manejando
'por eso puse el close pero si lo vas a usar mas delante omitelo unque ya tienes
'tu utf8 en la cadena linea