hvordan læser jeg fra tekstfil

Dim fil_nummer As Integer
Dim fil_indhold As String
fil_nummer = FreeFile
Open \"c:\\tekstfil.txt\" For Input As fil_nummer
fil_indhold = Input(filelen(\"c:\\tekstfil.txt\"), fil_nummer)
Close #fil_nummer
MsgBox fil_indhold

Mvh.
Troels

He he

Fra venstre mod højre

Jeg skulle lige ned efter cigaretter...

Dim fil_nummer As Integer
Dim fil_pos As Long
Dim fil_indhold As String
Dim fil_modsat As String
Dim fil_len As Long
fil_nummer = FreeFile
Open \"c:\\tekstfil.txt\" For Input As fil_nummer
fil_indhold = Input(filelen(\"c:\\tekstfil.txt\"), fil_nummer)
Close #fil_nummer
fil_len = Len(fil_indhold)
fil_modsat = String(fil_len, \" \")
For fil_pos = 1 To fil_len
    Mid(fil_modsat, fil_len - fil_pos + 1, 1) = Mid(fil_indhold, fil_pos, 1)
Next fil_pos
MsgBox fil_indhold
MsgBox fil_modsat

Damn geek, du har den fedeste tekst på dit \"mini site\"... ;o)

Der er jo nogle der er født heldig :)