-   
- 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 
-