Imports System
module Main
Sub Main()
dim TxtInfo as String
dim dectravelTime as Decimal = 12.5
dim DecdistanceTravel as Decimal = 11.1
if DecdistanceTravel < dectravelTime then
txtInfo = "Moderate Commute"
End IF
End Sub
module End