Ermittlung der Office-Version und Version des Betriebssystems

Sub test()
If InStr(Application.Version,"8")>0 Then
MsgBox "Sie arbeiten mit der Version 8"
Else 
MsgBox "Sie arbeiten mit der Version 9"
end if
End sub

Sub test2()
V = Application.Version
S = System.Version
StatusBar = "Sie arbeiten mit der Version " & V & " und der Version des Betreibssystems " & S
End Sub