Spørgsmålsbox

MsgBox "Tekst", vbQuestion

Nej det skal jo være sådan brugeren kan skrive noget...

Me.Caption = InputBox("Tekst")

Meeeennnnnnnn kan man ikke lave en knap så den åbner en form, der går 2 sek., og formen lukker igen?

noget i stil med:

Private Sub Form_Load()
Dim strTekst As String
strTekst = InputBox("Tekst")

'---- Form x ----
Form2.Show
Wait 2
Unload Form2
'---- Form x ----
End Sub

Private Sub Wait(WaitTime)
Dim StartTime As Double
Dim ScrEks As Variant
StartTime = Int(DateDiff("s", ScrEks, Now) / WaitTime)
  Do
    DoEvents: DoEvents
  Loop Until Int(DateDiff("s", ScrEks, Now) / WaitTime) > StartTime
End Sub