Hallo Zusammen und noch einen schönen Restsonntag!

Ich hoffe von euch 'ne Lösung zu bekommen.
Auf einer UF befindet sich ein Button der folgenden Befehlsinhalt hat.

Dim vZoom As Variant
vZoom = InputBox("Bitte Zoomwert festlegen:", , "75")
If vZoom = "" Then Exit Sub
Me.Zoom = CInt(vZoom)

Wie gewünscht wird in der InputBox der Wert 75 angezeigt und nach Klick auf Ok die UF auch auf 75% verkleinert.
Für mich so gewollt und auch fasst perfekt.

Kann ich den Klick auf Ok der InputBox vielleicht irgendwie umgehen. Mein Wunsch wäre, die InputBox öffnet sich kurz, schließt sofort wieder und
meine UF ist auf 75% heruntergezoomt.

Wenn das möglich wäre, fänd ich das Super, wenn nicht geht die welt auch nicht unter!

Danke und liebe Grüße
Frank H.