Imports System

Public Module Module1

    Public Sub Main()

        Dim cals_per_minute As Decimal = 3.9

        For intCount = 10 To 30 Step 5

            Console.WriteLine("Calories burned after "& intCount &" Minutes =" & (intCount*cals_per_minute))

        Next intCount

    End Sub

End Module