Dialoogvenster(formulier) met knop op werkbalk werkt niet goed?

[Hrl18]

K heb een Knop aangemaakt om een formulier van VBA te laten verschijnen, als ik op die knop duw dan verschijnt het formulier(Dialoogvenster)!
Maar zodra ik op OK in het formulier klik dan krijg ik een foutmelding, en die verwijst naar het dikgedrukte en onderstreepte stukje: WIE KAN MIJ HELPEN >

Private Sub OK_Click()
If PromptDialog.[U][B]JustSaveDraft[/B][/U].Value = True Then
MyItem.Save
End If
If PromptDialog.JustSaveDraft.Value = False Then
MyItem.Print
End If
PromptDialog.Hide
End Sub

Set MenuBar = CommandBars.Add _
(Name:="mBar", Position:=msoBarRight, MenuBar:=True)
With MenuBar
.Protection = msoBarNoMove
.Visible = True
End With

Het dikgedrukte en onderstreepte is dan blauw geselecteerd!
de knop werkt, maar als ik dan op OK klik dan krijg ik de foutmelding!

 

[Wigi]

Doe maar eens een voorbeeldbestandje, zal veel duidelijker zijn vermoed ik.

Geef wel code mee op de knop weer te verwijderen, anders gaan sommige mensen het openen en misschien niet meer weg krijgen.

 

[Hrl18]

Voorbeeld

Ik kan geen voorbeeldbestand hier zetten. is een ongeldig bestand!
Het is .XLS
zo wordt het moeilijk he

 

[Finch]

Je bestandje even zippen, en dan kan je het wel aan een bericht hangen hier.

 

[Hrl18]

Zippen

ik kan hem hier niet zippen, ik ben nu op stage! ik zet je thuis een bestandje drop!

 

[Hrl18]

checkbox

t is een CHECKBOX