Get OS version: Not working!

Public Function IsWinVistaPlus() As Boolean
 
  'returns True if running Windows Vista or later
   Dim osv As OSVERSIONINFOEX
DebugAppend "Detecting Windows Version..."
   osv.OSVSize = Len(osv)
 
   If GetVersionEx(osv) = 1 Then
        DebugAppend "osv.dwVerMajor=" & osv.dwVerMajor
        DebugAppend "osv.dwVerMinor=" & osv.dwVerMinor
 
        DebugAppend "osv.PlatformID=" & osv.PlatformID
        DebugAppend "osw.Build=" & osv.dwBuildNumber
      IsWinVistaPlus = (osv.PlatformID = VER_PLATFORM_WIN32_NT) And _
                   (osv.dwVerMajor >= 6)
 
   End If
   
   
End Function