?type something like Boolean

[lee666]

What Im trying to achieve is to make my own
?type something like Boolean
Dim isOn As Boolean

Enum is wrong I think but it will gave you some idea of what

Im trying to achieve
 
 Enum State 
   isOn = -1
   isOff = 0
End Enum
 
Dim MyState As State
Sub Swichstate
If MyState= isOn Then MyState = isOff Else MyState = isOn
End Sub
 
Enum Size
   Small = -1
   Medium= 0
   Big = 1
End Enum
Dim PlateSize As Size
 
Sub Swicht(PlateOverFlows As Boolean)
If PlateOverFlows = True Then
Select Case PlateSize
Case Small
     PlateSize = Medium
Case Medium
     PlateSize = Big
Case Big
    Get_AtherPlate
End Select
End Sub