' <modOLVersion.bas>
Option Explicit

Public Enum olVersion
  olVersion_Unknown = 0
  olVersion_9 = 9
  olVersion_10 = 10
  olVersion_11 = 11
End Enum

Private m_lVersion As olVersion

Public Property Get OutlookVersion() As olVersion
  OutlookVersion = m_lVersion
End Property

Public Sub DetermineOutlookVersion(oApp As Outlook.Application)
  Select Case left$(oApp.Version, 2)
  Case "9."
    m_lVersion = olVersion_9
  Case "10"
    m_lVersion = olVersion_10
  Case "11"
    m_lVersion = olVersion_11
  Case Else
    m_lVersion = olVersion_Unknown
  End Select
End Sub
' </modOLVersion.bas>