Display the operating system in Excel VBA

This snippet displays the operating system using Excel VBA.
On Windows Vista it gives Windows (32 bit) NT 6.00 for example.
On a Mac it gives Macintosh (Intel) 10.6.8
On Windows 10 it gives Windows (32-bit) NT:.00
even though the system panel says 64 bit hardware and 64 bit operating system

	Sub sbTheOS()
	Dim TheOS As String
	TheOS = Application.OperatingSystem
	MsgBox TheOS
	End Sub