Insteon: Sump pump alarm monitoring

App.config

@@ -290,6 +290,9 @@
       <setting name="Pihole_APIKey" serializeAs="String">
         <value />
       </setting>
+      <setting name="Insteon_SumpAlarmAddr" serializeAs="String">
+        <value />
+      </setting>
     </HAController.My.MySettings>
   </userSettings>
   <entityFramework>

My Project/Settings.settings

@@ -272,5 +272,8 @@
     <Setting Name="Pihole_APIKey" Type="System.String" Scope="User">
       <Value Profile="(Default)" />
     </Setting>
+    <Setting Name="Insteon_SumpAlarmAddr" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
   </Settings>
 </SettingsFile>

modInsteon.vb

@@ -527,6 +527,8 @@
                         strTemp = strTemp & InsteonDoorSensorResponse(Command1, Command2)
                     ElseIf FromAddress = My.Settings.Insteon_SmokeBridgeAddr AndAlso Flags = 203 AndAlso x(ms + 5) = 0 AndAlso x(ms + 6) = 0 Then ' TODO: Detect this by device model
                         strTemp = strTemp & InsteonSmokeBridgeResponse(x(ms + 7))
+                    ElseIf FromAddress = My.Settings.Insteon_SumpAlarmAddr AndAlso Flags = 203 AndAlso x(ms + 5) = 0 AndAlso x(ms + 6) = 0 Then
+                        strTemp = strTemp & InsteonSumpAlarmResponse(Command1)
                     Else
                         strTemp = strTemp & " Command1: " & Hex(Command1) & " (" & modInsteon.InsteonCommandLookup(Command1) & ")" & " Command2: " & Hex(Command2)
                     End If
@@ -1970,6 +1972,22 @@
         End Select
     End Function
 
+    Function InsteonSumpAlarmResponse(ByVal ToBit As Byte) As String
+        Select Case ToBit
+            Case 17
+                My.Application.Log.WriteEntry("ALERT: Sump Pump Alarm Triggered!", TraceEventType.Warning)
+                modSpeech.Say("Sump pump alarm triggered")
+                modMail.Send("Sump pump alarm triggered", "Sump pump alarm triggered")
+                Return "Sump Pump Alarm Detected"
+            Case 19
+                My.Application.Log.WriteEntry("CANCEL ALERT: Sump Pump No Longer in Alarm State", TraceEventType.Information)
+                modMail.Send("Sump pump no longer in alarm state", "Sump pump no longer in alarm state")
+                Return "All Clear Detected"
+            Case Else
+                Return "New or Unknown Message Detected"
+        End Select
+    End Function
+
     Function InsteonThermostatResponse(ByVal comm1 As Byte, ByVal comm2 As Byte, ByVal FromAddress As String) As String
         Select Case comm1
             Case 106