Sub Main
    Dim App as femap.model
    Set App = feFemap()

    Dim F_Name As String
    Dim Ver_Num As Double


    rc = App.feFileGetName("Select the .modfem for which you want the Femap version", "Femap Models","*.mod*",True ,F_Name)
    If rc<>-1 Then
    	Exit Sub
    End If
rc = App.feModelFileVersionV2(F_Name,Ver_Num)

Msg = "Femap Model Version is " + Str$(Ver_Num)
rc = App.feAppMessage(FCM_NORMAL, Msg)

    
End Sub