select case

Function Alpha(eco, ecu, ec2, n) As Double
'Fall 1
If ecu >= 0 And eco >= 0 Then
Alpha = 1
End If
'Fall 2
If ecu >= 0 And 0 > eco And eco >= ec2 Then
Alpha = 2
End If
'Fall 3
If ecu >= 0 And ec2 > eco Then
Alpha = 3
End If
'Fall 4
If 0 > ecu And ecu > eco And eco >= ec2 Then
Alpha = 4
End If
'Fall 5
If 0 > ecu And ecu > ec2 And ec2 > eco Then
Alpha = 5
End If
'Fall 6
If 0 > ecu And ec2 >= ecu And ec2 >= eco Then
Alpha = 6
End If
End Function