Den Pfad zum Windows-System Ordner müssen Sie nicht selber aus dem Windows Verzeichnis und dem Zusatz "\System" bzw. "\System32" unter Windows NT/2000/XP zusammenbasteln, sondern können einfach die API Funktion GetSystemDirectory befragen:

Private Const MAX_PATH = 260

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
       (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function SystemDir() As String
  Dim strBuffer  As String
  Dim lngNameLen As Long

  strBuffer = Space$(MAX_PATH)
  lngNameLen = GetSystemDirectory(strBuffer, Len(strBuffer))
  SystemDir = Left$(strBuffer, lngNameLen)
End Function