Dim sKey As String
 
If IsWinNT() Or IsWinXP() Or IsWin2000() Then
  sKey = "ProgramFilesDir"
Else
  sKey = "ProgramFilesPath"
End If
 
MsgBox fWertLesen(HKEY_LOCAL_MACHINE, _
  "Software\Microsoft\Windows\CurrentVersion", sKey)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de