Hallo Axel,
vielen Dank für die schnelle Hilfe, war mir zwar sicher das genau so versucht zu haben aber jetzt funktioniert's jedenfalls.
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db_current As NotesDatabase
Dim dlgdoc As NotesDocument
Set db_current = s.CurrentDatabase
Set dlgdoc = New NotesDocument(db_current)
dlgdoc.Form = "testDialog"
dlgdoc.test = "Vorgabewert"
Call ws.DialogBox("testDialog",,,,,,,,dlgdoc)
End Sub