como abrir un archivo y el contenido mostrarlo en un textbox

escarabajo_mx
19 de Abril del 2004
saludos, lo ke pasa es ke guardo el archivo indicandole ke lo guarde como .txt pero al revisarlo, no me pone la extension, a demas como le hare para que ese contenido del archivo me lo muestre en un textbox determinado, tengo este codigo para guardarlo With CommonDialog1
.DialogTitle = "Guardar el archivo"
.FileName = NombreFichero
.ShowSave
If Len(.FileName) Then
NombreFichero = .FileName
GuardarFichero
End If
End With

Private Sub GuardarFichero()
' Guardar el contenido del textbox en NombreFichero

'Guardar
Dim i As Long

i = FreeFile
Open Textresultado.Text For Output As i
Print #i, Textresultado.Text
Close i

Modificado = False
End Sub
rivate Sub mnuFicAbrir_Click()
With CommonDialog1

.CancelError = True
'
.DialogTitle = "Seleccionar un archivo para abrirlo"
.FileName = NombreFichero
.ShowOpen

If Err.Number = 0 Then
If Len(.FileName) Then
NombreFichero = .FileName


Dim nFic As Long
Dim sTmp As String

nFic = FreeFile
Open .FileName For Input As nFic
sTmp = Input$(LOF(nFic), nFic)
Close nFic

' Asignarlo al textbox aqui no se como asignarlo, o no sse si este bien
Textresultado.Text = sTmp
'Show

Modificado = False
End If
End If
End With

Err = 0

End Sub

pep
19 de Abril del 2004
Sub Desa ()
On Error GoTo TractamentErrorsDesar

CMDialog1.CancelError = True
CMDialog1.Filter = \\\"Tots els fitxers (*.*)|*.*|Fitxers de text (*.txt)|*.txt|\\\"
CMDialog1.FilterIndex = 2
CMDialog1.Action = DLG_FILE_SAVE

Open CMDialog1.Filename For Output As #1
Print #1, txtQuadreText.Text
Close #1
TextModificat = False
Exit Sub

TractamentErrorsDesar:
MsgBox \\\"Ho sento, no he gravat el fitxer\\\", MB_ICONSTOP
Exit Sub
End Sub