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

​

​

​