Private Sub Form_Initialize()
Dim Version As String
Version = App.Major & "." & App.Minor & "." & App.Revision
MsgBox Version
End Sub
Ya tu comparas lo que necesites saber... como una cadena conjunta o comparando cada parte por separado.
Por ejemplo para lo que tu quieres, en el evento initialize (por ejemplo):
form1.caption= form1.caption & " " & varsion