Para leer pues... mirate esto.

Private Sub Abir_Click()
Dim nLen, nCanal As Integer
Dim Filename
On Error GoTo error
CommonDialog1.DialogTitle = "Abrir archivo"
CommonDialog1.Filter = "Archivos XTX|*.xtx|Archivos TXT|*.txt|Archivos RTF|*.rtf|Archivos MRC|*.mrc|Archivos ME|*.me|Archivos WRI|*.wri|Archivos BBS|*.bbs|Archivos DOC|*.doc|Archivos de Texto (*.txt;*.wri;*.me;*.bbs)|*.txt;*.wri;*.me;*.bbs|To dos los ficheros(*.*)|*.*"
CommonDialog1.ShowOpen
nCanal = FreeFile
Open CommonDialog1.Filename For Binary As #nCanal
nLen = LOF(nCanal)
Texto$ = Space$(nLen)
Get #nCanal, , Texto$
Text1.Text = RTrim$(Texto$)
Close #nCanal
Form1.Caption = "Multi Text Editor - " & CommonDialog1.Filename & ""
Exit Sub
error:
Exit Sub
End Sub

Esto lo hice para un editor de texto mio, asi ke lo puedes modificar par ahacerlo a tu gusto, salu2, lo de convertir... ya lo tienes ke ir viendo tu, no se te va a dar to el trabajo echo xd

Salu2