Scripting Error

Goodday.
I am a Newbie to Programming.
Please help me out to see what is wrong with this simple
script

Sub RUN1_OnUpdate( )
If RUN1.value=2
Then DISPLAY1.value=2
Else DISPLAY1.value=1
End If
End Sub

AnD i recieve this
Scripting Error
Microsoft VBscript compliation error.
[line:3] Expected 'Then' If RUN1.value=2

MSDN is your friend:
http://msdn.microsoft.com/library/en...ml/vastmIf.asp

It should be:

Code:

---

If RUN1.value=2 Then
  DISPLAY1.value=2
Else
  DISPLAY1.value=1
End If

---