Function AllHbetter(currentscore As Double, Goal As Double)

If currentscore >= Goal Then

AllHbetter = 4

End If

If currentscore < Goal Then

AllHbetter = 1

End If

If currentscore = nul Then

AllHbetter = 0

End If

End Function

Function AllLbetter(currentscore As Double, Goal As Double)

If currentscore <= Goal Then

AllLbetter = 4

End If

If currentscore > Goal Then

AllLbetter = 1

End If

If currentscore = nul Then

AllLbetter = 0

End If

End Function