lo que puedes hacer es asignar el valor del text a una cadena de tipo string asi:
Dim Linea as String
- Para leer un archivo
Do
LIne Input #1, Linea
Form1.Text1.Text=Form1.Text1.Text+Linea+chr$(13)+Chr$(10)
Loop Until EOF(1)
chr$(13)+Chr$(10) para evaluar el retorno de carro al final de c/linea
la función EOF retorna -1 (true) cuando se llega al final del archivo y 0 en caso contrario.
La consideracion a tomar en cuenta es que la propiedad Text es de tipo String y esta limitada a 65500caracteres.
LIne Input #1, lee del archivo cadenas de caracteres limitados por retornos de carro.
Ahora usando una caja de dialogo podemos predefinir la leer y Guardar el archivo en modo .txt
Suerte