In support of this post
http://www.eileenslounge.com/viewtop...281164#p281164

Code:
Sub On___Then____()  '    http://www.eileenslounge.com/viewtopic.php?p=281164#p281164
' Going nowhere    the first   ____ evaluates to a number in range 0  or 2 , 3, 4 ..... 255 so I don't  GoTo
On 0.2 GoTo NeverBeHere
On Err GoTo NeverBeHere
On TwitTwo GoTo NeverBeHere
On Nmber(255) GoTo NeverBeHere
On -0.5 GoTo NeverBeHere
On 255.49999 GoTo NeverBeHere

' Going somewhere  the first   ____  evaluates to 1  so I  GoTo
On 1 GoTo 10
 MsgBox prompt:="I am never here. You will never see this"
10 On 1.49999 GoTo 20
 MsgBox prompt:="I am never here. You will never see this"
20 On Nmber(0.5001) GoTo 30
 MsgBox prompt:="I am never here. You will never see this"
30  Exit Sub
'
NeverBeHere:
' I will never be here
 MsgBox prompt:="I am never here. You will never see this"
End Sub
Function TwitTwo() As Double
 Let TwitTwo = 2.1
End Function
Function Nmber(ByVal No As Double) As  Double 
 Let Nmber = No
End Function