﻿dim i as integer = 240
dim n as integer = 0

IF i < 1 THEN
n = 11111 : n = 9
ELSEIF i = 2 * 10 then
n = 22222
ELSE
n = 33333
ENDIF

msgbox n

'
'
'dim d as double = 1450
'dim d2 as double = 6
'
'print d^d2 
'
'
'Public Enum Toe
'Big = 0
'Middle = 1
'Little = 2
'End Enum
'
'Public Function ToeToString(pToe As Toe) As String
'  
'  if pToe = Toe.Big then Print "pToe"
'  
''Dim strRet As String
''Select Case pToe
''Case Toe.Big: Print "Big"
''Case Toe.Middle: Print "Middle"
''Case Toe.Little: Print "Little"
''End Select
''Return strRet
'End Function
'
'
'ToeToString(Toe.Big)