Ya he conseguido solucionarlo, por si a alguien le sirve de ayuda, es mucho mas facil de lo que habia planteado en un principio.

 Private Function Outlook_Version() As String

        Dim oApp As Outlook.Application

        oApp = DirectCast(CreateObject("Outlook.Application"), Outlook.Application)

        Outlook_Version = oApp.Version


    End Function

Se almacenaran en el String cuatro bloques de numeros, el que de verdad diferencia la versiones es el primer bloque de numeros.