Private Declare Auto Function RegLoadKey Lib "advapi32.dll" (ByVal hKey As _
  IntPtr, ByVal lpSubKey As String, ByVal lpFile As String) As Integer
 
Private Const HKEY_USERS = &H80000003
 
Dim ret As Integer
ret = RegLoadKey(HKEY_USERS, "User_xxx", "C:\Users\xxx\NTUSER.DAT")
MsgBox(ret)
If ret <> 0 Then
   Throw New Win32Exception(ret)
End If

Grüße Andi