Perfect thanks

I have put this together in the meantime (checks for VB7 and 64 bit instlallations)

Will expand to include your workings...

[vba]
Function OperatingSystem()
Dim sOSVer As String
sOSVer = Application.OperatingSystem
OperatingSystem = sOSVer
End Function
Function OfficeVersion()
Dim sOffVer As String
sOffVer = Application.Version
OfficeVersion = sOffVer
End Function
Function GetOS()
Dim OS
For Each OS In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
GetOS = OS.Caption
Next OS
Set OS = Nothing
End Function
Function WhichBit()
If WIN64 Then
WhichBit = True
Else
WhichBit = False
End If
End Function
Function WhichVBA()
If VBA7 Then
WhichVBA = True
Else
WichVBA = False
End If
End Function
[/vba]

Formulas :

=OperatingSystem()

=GetOS()

=OfficeVersion()&" ("&IF(whichbit(),"64-Bit","32-Bit")&")"&"("&IF(WhichVBA(),"VB7","VB6")&")"