Utilizando la API es fácil.
Pega esto en un nuevo form
Código:
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Sub Form_Load()
Dim SysInfo As OSVERSIONINFO
SysInfo.dwOSVersionInfoSize = Len(SysInfo)
GetVersionEx SysInfo
Debug.Print SysInfo.szCSDVersion
End Sub
Saludos.