strValue = "http://wsus01:8530"
 
        objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
          strValueName, strValue)
 
        If isNull(strValue) Then' Eigentlich immer False, oder?
            MsgBox("Key Not Found")
        Else
            MessageBox.Show("WSUS ist eingetragen!", "Settings")
        End If

       Dim sErgebnis as String
 
        sErgebnis=objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, _
          strValueName, strValue)
 
        If String.IsNullOrEmpty(sErgebnis) Then
            MsgBox("Key Not Found")
        Else
            MessageBox.Show("WSUS ist eingetragen!", "Settings")
        End If