> 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

Asking "What's wrong??" followed by "HELP please" doesn't tell us
anything. Your code, as written, should work fine. Why don't you tell us
what you think should be happening and what actually is happening that
surprises you.

Rick - MVP
---
þ 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:35:54 PM