hi, Shouldn't this open a *.txt -file?
(because it doesn't..)

Private Sub Code_Click()

Dim filnummer As Integer
Dim filnavn As String

'Unikt filnummer findes
filnummer = FreeFile
filnavn = "C:\Documents and Settings\whiteraven\Dokumenter\game\Code.txt"

Open filnavn For Input As #filnummer
Close #filnummer

End Sub