Whats wrong??
HELP please!

Option Explicit

Sub VbsGem()
     Dim text
     Dim title
     Dim filtekst
     Dim FilNummer
     Dim FilNavn
     text = InputBox("skriv hvad der skal stå: ")
     title = InputBox("skriv hvad titlen skal være: ")

     FilNummer = FreeFile
     FilNavn = "C:\popup.txt"
     filtekst = text & ", " & title

     Open FilNavn For Output As FilNummer
     Print #FilNummer, filtekst
     Close FilNummer

     MsgBox ("din popup fil er nu gemt på C:\ som popup.txt")
End Sub
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 1/10/05 4:11:10 PM