Public Function getWert(ByVal Name As String) As Integer
    Dim objSensor As Object
    getWert = 0
    On Error GoTo ende
    Set objSensor = GetObject("winmgmts:\\.\Root\WMI").Get( _
      "EVEREST_SensorValues.ID='" & Name & "'")
    getWert = objSensor.Value
    objSensor.Delete_
ende:
End Function