The following example demonstrates how to return the Height property.
Private Sub HeightPropExample()
Dim myHeight As Double
myHeight = Application.Height
MsgBox ("Height is: " & myHeight)
End Sub