Ayuda con la implementación en visual basic de programas que gestionen archivos de texto

Para escribir una linea en un archivo de texto:
Private Sub pEscribirTexto(Byval sFile As String, Byval sTexto As String)
Dim iFile As Integer
iFile = FreeFile
'Comprobamos si el archivo existe, en cuyo caso añadimos el
'texto a lo ya existente. En otro caso lo creamos:
If Dir(sFile) <> Empty Then
Open sFile For Append As #iFile
Else
Open sFile For Output As #iFile
End If
'Escribimos la linea
Print #iFile, sTexto
Close #iFile
End Sub
Para leer un archivo, lo hacemos de forma secuencial:
Private Sub pLeerArchivo(Byval sFile As String)
Dim iFile As Integer
Dim sLinea As String
iFile = FreeFile
'Abrimos el fichero para lectura
Open sFile For Input As #iFile
Do While Not EOF(iFile)
'Aqui cogemos el contenido y lo pone en la variable
Input #iFile, sLinea
Debug.Print sLinea
Loop
Close #iFile
End Sub