Code: Select all
Sub Function Func_A () As Byte
...
Result = 1
End Sub
Sub Function Func_B () As Byte
...
Result = 1
End Sub
Sub Function Func_C () As Byte
...
Result = 1
...
If Result Then
If Func_A() Then Result = Func_B() Else Result = 0 End If
End If
End Sub
Code: Select all
Sub Function Func_A () As Byte
...
Result = 1
End Sub
Sub Function Func_B () As Byte
...
Result = 1
End Sub
Sub Function Func_C () As Byte
...
Result = 1
...
If Result Then
If Func_A() Then Temp = Func_B() Else Temp = 0 End If
End If
Result = Temp
End Sub
(took me a day to find that out... )