1 - liner into script

[lpcalcaterra]

The answer is obvious to someone with skills, but that is not me. I have a one liner that updates a device string. It was getting cumbersome, so I thought I could put it in a script.

Sub Main(ByVal Params As Object)
hs.setdevicestring(633, "Today: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Today's Prediction")
& " Tonight: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tonight's Prediction") 
& " Tomorrow: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tomorrow's Prediction")
& hs.DeviceStringByName("Utility Tomorrow+1")
& ": "
& hs.DeviceStringByName("Extended Forecast UltraWeatherWU3 Plugin S1 2 Day Prediction (Day)"),true)
End Sub 

Error:

Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Syntax error.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Syntax error.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Syntax error.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Syntax error.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Syntax error.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: ')' expected.
Nov-25 2:48:14 PM         Error    Compiling script G:\Program Files\HomeSeer HS3\scripts\forecast.vb: Namespace or type specified in the Imports 'System.Core' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.
Nov-25 2:48:13 PM         Event    Running script in background: G:/Program Files/HomeSeer HS3/scripts/forecast.vb("Main","1") 

[sparkman]

Put the whole command on one line, or end each line with a space and then an underscore.

Sub Main(ByVal Params As Object) 
hs.setdevicestring(633, "Today: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Today's Prediction") & " Tonight: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tonight's Prediction")  & " Tomorrow: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tomorrow's Prediction") & hs.DeviceStringByName("Utility Tomorrow+1") & ": " & hs.DeviceStringByName("Extended Forecast UltraWeatherWU3 Plugin S1 2 Day Prediction (Day)"),true) 
End Sub

Or:

Sub Main(ByVal Params As Object) 
hs.setdevicestring(633, "Today: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Today's Prediction") _
& " Tonight: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tonight's Prediction") _
& " Tomorrow: " & hs.DeviceStringByName("Forecast UltraWeatherWU3 Plugin S1 Tomorrow's Prediction") _
& hs.DeviceStringByName("Utility Tomorrow+1") _
& ": " _
& hs.DeviceStringByName("Extended Forecast UltraWeatherWU3 Plugin S1 2 Day Prediction (Day)"),true) 
End Sub

[lpcalcaterra]

Thank you.