Function FindPrinter - out of memory

[Temporary-Failure]

Something is wrong with this function. When it's executed I get "Runtime error: 7. Out of memory"
and
Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
goes yellow. Why?

Function FindPrinter(ByVal PrinterName As String) As String

  Dim Arr As Variant
  Dim Device As Variant
  Dim Devices As Variant
  Dim Printer As String
  Dim RegObj As Object
  Dim RegValue As String
  Const HKEY_CURRENT_USER = &H80000001
       
    Set RegObj = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    RegObj.enumvalues HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Devices, Arr
    
      For Each Device In Devices
        RegObj.getstringvalue HKEY_CURRENT_USER, "Software\Microsoft\Windows NT\CurrentVersion\Devices", Device, RegValue
        Printer = Device & " porttiin " & Split(RegValue, ",")(1)
        If InStr(1, Printer, PrinterName, vbTextCompare) > 0 Then
           FindPrinter = Printer
           Exit Function
        End If
      Next
      
      
End Function

 

[anvg]

As a work variant

Function FindPrinter(ByVal PrinterName As String) As String
Dim colPrinters, nextPrinter

Set colPrinters = GetObject("winmgmts:").ExecQuery("Select * from Win32_Printer", , 48)
For Each nextPrinter In colPrinters
    If InStr(1, nextPrinter.Name, PrinterName, vbTextCompare) > 0 Then
        FindPrinter = nextPrinter.Name
        Exit Function
    End If
Next
End Function

Regards,