Function MyFunc(a, b)
  If a = 1 Or b = 1 Then
    MyFunc = 1
  Else
    MyFunc = 0
  End If
End Function
 
Dim test1, test2, test3
test1 = 1
test2 = 0
test3 = 0
 
WScript.Echo MyFunc(test1, test2) 'Ausgabe 1
WScript.Echo MyFunc(test2, test3) 'Ausgabe 0