Hoe opslaan en openen?

[HellupUandMe]

(Visual Basic 2005)

Ik wil een programaatje maken waarbij je text bestanden (.txt) kan openen en opslaan.
Dus als je bijv. op button1 klikt dat je dan een text bestand kan openen en dat dan vervolgens die tekst (uit dat bestandje) in bijv. TextBox1 komt te staan.

Wie weet wat ik moet invoeren bij button1 ?
Als iemand mij dit vertelt zou ik ontzettend gelukkig zijn.

Ik heb nu alleen nog dit:

With SaveFileDialog1
.Filter = "Textbestanden (*.txt) | *.txt | Alle bestanden (*.*) | *.*"
.FilterIndex = 1
.InitialDirectory =Enviroment.SpecialFolder.MyDocuments.Tostring
.Title = "Geef een bestandsnaam op"
.OverwritePrompt = True

.ShowDialog()

Me.Text = .FileName
End With

Wie weet wat ik er nog moet bijzetten om de text van TextBox1 op te slaan?

 

[phpuser]

zou je dit moeten plaatsen:

dim kanaalnummer as integer
kanaalnummer = freefile 'een vrij i/o kanaal
dim tekst as string

open SaveFileDialog1.filename for input as #kanaalnummer 
' let op dat er een foutmelding ontstaat als het bestand niet gevonden is
'Let op het # voor je variabele

Do While Not EOF(kanaalnummer)   ' ga door totdat het einde van het bestand
   Input #1, tekst                             ' Lees regel voor regel het bestand
   text1.text = text1.text & vbcrlf & tekst
Loop

 

[WILLIAMXXX]

saveDialog.DefaultExt = ".txt"
saveDialog.OverwritePrompt = True
saveDialog.Title = "Save File"

If saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then

richBox1.SaveFile(saveDialog.FileName, RichTextBoxStreamType.RichText)

documentTitle = saveDialog.FileName

End If

 

[HellupUandMe]

Bedankt voor jullie reacties!