Function Betrieb(Parameter1, Parameter2)
  If Parameter1 = 1 Or Parameter2 = 1 Then
    Betrieb = 1
  Else
    Betrieb = 0
  End If
End Function
 
Variable1_Betrieb = Betrieb(Variable1, Variable2)
Variable2_Betrieb = Betrieb(Variable3, Variable4)