The following example demonstrates how to set and return the Width property.
Private Sub WidthPropExample()
Dim myWidth As Double
myWidth = Application.Width
MsgBox ("Width is: " & myWidth)
End Sub