Dette kompilerer iallfall og for meg returnerer "Bad credentials" (selvfølgelig).
Har ryddet litt og endret f.eks. Char og testing på "1" til Integer og test på 1...
Sub Main(Parms As Object)
Dim ParmArray As String() = Parms.ToString.Split("|")
Dim phoneNumber As String = ParmArray(0)
Dim messageCode As Integer = ParmArray(1)
Dim message As String = ""
Select Case messageCode
Case 1
message = "Røykvarsler utløst på vaskerom!"
Case 2
message = "Røykvarsler utløst på voksen-soverom"
Case 3
message = "Alarm KLOAKK Overstrøm pumpe"
Case 3
message = "Alarm KLOAKK Høyt Nivå"
Case Else
message = "Udefinert alarm"
End Select
hs.WriteLog("HS3 SMS", "Sending message '" & message & "' to " & phoneNumber)
Dim Url As String = "https://rest.nexmo.com/sms/xml?api_key=DINKEY&api_secret=HEMMELIGHET&from='HS3 SMS'&to=" & phoneNumber & "&text=" & message & " " & Now()
Dim result As String = hs.URLAction(Url, "GET", "", "")
hs.WriteLog("HS3 SMS", result)
ParmArray = Nothing
phoneNumber = Nothing
message = Nothing
result = Nothing
End Sub