Les comparto una manera muy sencilla y práctica para obtener el sistema operativo de Windows con una rutina de VBA.

'****************************************'
' Email: obed.cruz@exceltrabajaporti.com '
' www.exceltrabajaporti.com              '
' Excel VBA Developer                    '
'****************************************'
Option Explicit

Sub SistemaOperativo()
Dim WmObj As Object, objTarget As Object, Obj As Object
     
    Set WmObj = GetObject("WinMgmts:{impersonationLevel=impersonate}")
    Set objTarget = WmObj.ExecQuery("Select * from Win32_OperatingSystem")
     
    For Each Obj In objTarget
        MsgBox Left(Obj.Name, InStr(1, Obj.Name, "|") - 1) & vbCrLf & Obj.Version
    Next

End Sub