Fikk det til jeg og nå  Ikke så veldig stødig i vb enda så her er det ett og ett steg. Men det funker  
	 
 
	 
 
' Styrer temperaturen i kjellerstuen
Public Sub Main(Parm As Object)
dim devicenumber as integer = 160 'iden på devicen du skal styre
    Dim debug As Integer = "1"
    Dim sourcecode As String
    Dim sourceString As String = New System.Net.WebClient().DownloadString("https://panelapi.sectoralarm.net/MobileAppWS.svc/PanelStatus?userName=<BRUKERNAVN>&password=<PASSORD>&panel=<PANELID>")
    If debug = "1" Then
        sourceString = replace(sourceString, "{", "")
        sourceString = replace(sourceString, "}", "")
        
        Dim arr1 As String() = sourceString.Split(New Char() {","c})
        Dim arr2 As String() = arr1(0).Split(New Char() {":"c})
        arr2(1) = Replace(arr2(1), chr(34), "")
        If arr2(1) = "disarmed" Then
            ' hs.WriteLog("Alarmstatus", "Alarm av")
            hs.SetDeviceValueByRef(devicenumber, 0, True)
        ElseIf arr2(1) = "armed" Then
            'hs.WriteLog("Alarmstatus", "Alarm på")
            hs.SetDeviceValueByRef(devicenumber, 2, True)
        ElseIf arr2(1) = "partialarmed" Then
            ' hs.WriteLog("Alarmstatus", "Skallsikring")
            hs.SetDeviceValueByRef(devicenumber, 1, True)
        End If
    End If
End Sub