#bas
Sub doWork(Data, Index)
    If CStr(Data) = "Hello" or "Word" Then 
    MsgBox Data
    End If
End Sub

#bas
Sub doWork(Data, Index)
    If Data = 1 or 2 or 3 Then 
    MsgBox Data
    End If
End Sub

#bas
Sub doWork(Data, Index)
    Select Case CStr(Data)
        Case"Hello", "Word"
        MsgBox Data
    End Select    
End Sub

Add(MainForm,2953706,119,140)
{
 Width=277
 Height=196
}
Add(Button,5961507,203,140)
{
 Left=10
 Top=10
 Width=45
 TabOrder=-1
 Layout="horiz"
 HeightScale=100
 Caption="Hello"
 Data=String(Hello)
 link(onClick,12018249:doWork2,[])
}
Add(VBJScript,8330421,294,140)
{
 WorkPoints=#6:doWork|
 Script=#10:' Работает|11:'----------|0:|23:Sub doWork(Data, Index)|26:    Select Case CStr(Data)|27:        Case"Hello", "Word"|19:        MsgBox Data|18:    End Select    |7:End Sub|0:|13:' Не работает|13:'------------|0:|24:'Sub doWork(Data, Index)|44:'    If CStr(Data) = "Hello" or "Word" Then |16:'    MsgBox Data|11:'    End If|8:'End Sub|0:|10:' Работает|12:'-----------|0:|24:'Sub doWork(Data, Index)|32:'    If Data = 1 or 2 or 3 Then |16:'    MsgBox Data|11:'    End If|8:'End Sub|
 UseName=0
}
Add(Button,14328000,203,224)
{
 Left=10
 Top=70
 Width=45
 TabOrder=-1
 Layout="horiz"
 HeightScale=100
 Caption="1"
 Data=Integer(1)
 link(onClick,14101656:doWork2,[])
}
Add(HubEx,12018249,266,133)
{
 link(onEvent,8330421:doWork,[])
}
Add(Button,6708381,203,266)
{
 Left=10
 Top=100
 Width=45
 TabOrder=-1
 Layout="horiz"
 HeightScale=100
 Caption="2"
 Data=Integer(2)
 link(onClick,14101656:doWork3,[(270,272)])
}
Add(Button,6591399,203,182)
{
 Left=10
 Top=40
 Width=45
 TabOrder=-1
 Layout="horiz"
 HeightScale=100
 Caption="Word"
 Data=String(Word)
 link(onClick,12868799:doWork2,[])
}
Add(HubEx,12868799,266,175)
{
 Angle=3
 link(onEvent,12018249:doWork3,[])
}
Add(HubEx,14101656,266,217)
{
 Angle=3
 link(onEvent,12868799:doWork3,[])
}