Mit ein bischen Hilfe sieht die Geschichte jetzt so aus:
Redim FormArray(0)
Forall form In db.Forms
If Not Left$(form.Name,3) = "dlg" Then
If FormArray(0) <> "" Then Redim Preserve FormArray(Ubound(FormArray) + 1)
FormArray(Ubound(FormArray)) = form.Name
End If
End Forall
erg = ws.Prompt(7, "Bitte eine Maske auswählen", "Bitte eine Maske auswählen.",FormArray(0),FormArray)
Nur für den Fall das jemand ein ähnliches Problem hat.