Poderia tentar determinar a versão do Windows... veja se ajuda...

Fonte:
http://social.msdn.microsoft.com/Forums ... 81e370e7b/

Option Explicit

Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Public Function getVersion() As String

Dim osinfo As OSVERSIONINFO
Dim retvalue As Integer

osinfo.dwOSVersionInfoSize = 148
osinfo.szCSDVersion = Space$(128)
retvalue = GetVersionExA(osinfo)

getVersion = "Version is " & osinfo.dwMajorVersion & "." & osinfo.dwMinorVersion

End Function

Descobri outra forma!

Sub FindDeskTopPath()

Dim TempDesk, DeskPath As String 'variável que vai armazenar a Pasta Desktop do usuário

DeskPath = Environ("USERPROFILE")
TempDesk = DeskPath & "Desktop"
Debug.Print TempDesk

Fica a dica de usar os Environs do Windows, utilize a expressão antes do "=" entre "parênteses"

ALLUSERSPROFILE=C:ProgramData
APPDATA=C:UsersXXXXXXAppDataRoaming
CommonProgramFiles=C:Program Files (x86)Common Files
CommonProgramFiles(x86)=C:Program Files (x86)Common Files
CommonProgramW6432=C:Program FilesCommon Files
COMPUTERNAME=HOSTNAMEOFTHEMACHINE
ComSpec=C:Windowssystem32cmd.exe
DEFLOGDIR=
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=UsersXXXXXX
LOCALAPPDATA=C:UsersXXXXXXAppDataLocal
LOGONSERVER=\DOMAINCONTROLLERSERVER
NUMBER_OF_PROCESSORS=2
OS=Windows_NT
Path=C:Program Files (x86)Microsoft OfficeOffice12;C:Windowssystem32;C:Windows;C:WindowsSystem32Wbem;C:WindowsSystem32WindowsPowerShellv1.0;C:Program Files (x86)ATI TechnologiesATI.ACECore-Static;C:Program FilesIntelDMIX;C:Program Files (x86)WinSCP;C:Program FilesTortoiseSVNbin;C:Program Files (x86)Microsoft SQL Server100ToolsBinn;C:Program FilesMicrosoft SQL Server100ToolsBinn;C:Program FilesMicrosoft SQL Server100DTSBinn;C:Program Files (x86)Microsoft SQL Server100ToolsBinnVSShellCommon7IDE;C:Program Files (x86)Microsoft Visual Studio 9.0Common7IDEPrivateAssemblies;C:Program Files (x86)Microsoft SQL Server100DTSBinn
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_ARCHITEW6432=AMD64
PROCESSOR_IDENTIFIER=Intel64 Family 6 Model 23 Stepping 10, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=170a
ProgramData=C:ProgramData
ProgramFiles=C:Program Files (x86)
ProgramFiles(x86)=C:Program Files (x86)
ProgramW6432=C:Program Files
PSModulePath=C:Windowssystem32WindowsPowerShellv1.0Modules
PUBLIC=C:UsersPublic
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:Windows
TEMP=C:UsersXXXXXXAppDataLocalTemp
TMP=C:UsersXXXXXXAppDataLocalTemp
USERDNSDOMAIN=WINDOWSLOGONDOMAIN
USERDOMAIN=
USERNAME=XXXXXX
USERPROFILE=C:UsersXXXXXX
VSEDEFLOGDIR=
WecVersionForRosebud.2C8=3
windir=C:Windows

[]s