'Code from www.cadlinecommunity.co.uk
CadlineDocument = ThisDoc.Document
ClintsFileVersion = CadlineDocument.FileSaveCounter
Dim YearVersion As String
Dim Version As SoftwareVersion = CadlineDocument.SoftwareVersionSaved
YearVersion = Version.DisplayVersion
Dim ServicePack As String
ServicePack = Version.ServicePack
Dim CurrentRunningVersion As String
CurrentRunningVersion = ThisApplication.SoftwareVersion.DisplayVersion
If YearVersion = CurrentRunningVersion Then
Return
Else

MessageBox.Show("N O T E  ! !   >   Saving this file will migrate it Inventor " & _ 
CurrentRunningVersion &" Format." & vbLf & _ 
vbLf & "It will not be backward compatible with old versions"  & vbLf & _ 
vbLf & "--------------------------------------------------"& vbLf & "NOTES: "& vbLf & _ 
vbLf  & "This file has been saved " & ClintsFileVersion & " Time(s)" & vbLf & _ 
"Last Saved in Inventor version "  & YearVersion & " Service Pack " & _ 
ServicePack & vbLf & "This file was created by: "  & _ 
iProperties.Value("Summary", "Author")&vbLf & _ 
"The File was created on: " & _ 
iProperties.Value("Project","Creation Date"),"Cadline File Version - iLogic",MessageBoxButtons.OKCancel,MessageBoxIcon.Stop)
End If