Option Explicit On
Option Strict On
Imports System.Environment
Module modMain
Sub Main()
MsgBox(get_OS_Version)
End Sub

Public Function get_OS_Version() As String
Dim osInfo As OperatingSystem
osInfo = OSVersion
With osInfo
Select Case .Platform
Case .Platform.Win32Windows
Select Case (.Version.Minor)
Case 0
get_OS_Version = "Win95"
Case 10
If .Version.Revision.ToString() = "2222A" Then
get_OS_Version = "Win98 Second Edition"
Else
get_OS_Version = "Win98"
End If
Case 90
get_OS_Version = "WinMe"
End Select
Case .Platform.Win32NT
Select Case (.Version.Major)
Case 3
get_OS_Version = "WinNT351"
Case 4
get_OS_Version = "WinNT4"
Case 5
If .Version.Minor = 0 Then
get_OS_Version = "Win2K"
Else
get_OS_Version = "WinXP"
End If
End Select
Case Else
get_OS_Version = "Failed"
End Select
End With
End Function
End Module