Private sub Test()
strKeyPath = "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strValueName = "WUServer"
strValue = "http://wsus01:8530"
 
If Not isRegKey(strKeyPath & "\" & strValueName, strValue) Then
     MsgBox ("Key Not Found")
Else
     MsgBox ("WSUS ist eingetragen!")
End If
End Sub
Private Function isRegKey(ByVal sRegPath As String, ByVal sValue As String) As _
  Boolean
Dim ws As Object
 
Set ws = CreateObject("WScript.Shell")
isRegKey = (sValue = ws.RegRead(sRegPath))
End Function