Get System Info - How to know which of system ver. is running?

Public OS as String
 
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
 
Public Function IsWindowsNT() As Boolean
   
   Dim verinfo As OSVERSIONINFO
   verinfo.dwOSVersionInfoSize = Len(verinfo)
   If (GetVersionEx(verinfo)) = 0 Then Exit Function
    Select Case verinfo.dwMajorVersion
        Case 3
            Select Case verinfo.DwMinorVersion
                Case 51
                    OS = 'Microsoft Windows NT 3.51'
                Case Else
                    OS = 'Microsoft Windows NT 3.5'
            End Select
        Case 4
            Select Case verinfo.DwMinorVersion
                Case 0
                    If verinfo.dwPlatformId = 2 Then
                        OS = 'Microsoft Windows NT 4.0'
                    Else
                        OS = 'Microsoft Windows 95'
                    End If
                Case 10
                    OS = 'Microsoft Windows 98'
                Case 90
                    OS = 'Microsoft Windows ME'
            End Select
        Case 5
            Select Case verinfo.DwMinorVersion
                Case 0
                    OS = 'Microsoft Windows 2000'
                Case 1
                    OS = 'Microsoft Windows XP'
            End Select
    End Select
   If verinfo.dwPlatformId = 2 Then IsWindowsNT = True
End Function