Hallo,
probier das mal als Ausgabe:
'... '... Call MsgBox("Zoom ist " & Application.ActiveWindow.Zoom)
Gruß,