Commandbutton in form werkt niet meer

[Scallebe]

Goede morgen specialisten,

Enkele jaren geleden werd dit formulier gebruikt om verlof aan te vragen. (ontwikkeld door onze informaticaspecialisten)
Met een installatieprogama werd het formulier op onze machines geinstalleerd en geintergreerd in ons "profile" en ons individueel PST file (vermoed ik).
Officieel wordt het formulier niet meer gebruikt maar intern op ons dienst maken we er wel nog gebruik van.
zie layout hieronder (weet niet hoe ik het formulier als bijlage kan meesturen)



Enkele dagen geleden hebben we een security update gehad op onze machines en plots werkt de commandbutton in het formulier niet meer. (Signe / Getekend)
Bij het aanklikken van de button wordt de naam van de user ingevuld in het naastliggende veld (zie code hieronder)

De button moet aangeklikt worden anders vertrekt het formulier niet.
 

Sub CommandButton1_Click

	Dim myNamespace As Outlook.NameSpace	

	Set Controls = Item.GetInspector.ModifiedFormPages("Demande de congé").Controls
	Set TextBox4 = Controls("TextBox4")

	Set MyNameSpace = Application.GetNameSpace("MAPI")

	TextBox4.Locked = False

	TextBox4.Value = MyNameSpace.CurrentUser

	TextBox4.Locked = True


End Sub

Wat zou de reden kunnen zijn dat de button niet meer werkt?
De code zou, na wat opzoeking, correct zijn en zou moeten werken.

Het rare is wanneer ik naar de "form design" ga en van daaruit "Run this form" aanklik ga werkt de button wel.

Kan het eventueel iets te maken hebben met bepaalde "References"? De welke dan?

Alvast bedankt

Groetjes

Pascal