Imports System

Public Module Module1

        Sub Main()

            Trace_pg98()

        End Sub

        Sub Trace_pg98

            Dim A as integer = 0

            Dim B as integer = 0

            Dim C as integer = 0

            'input A

             Console.WriteLine("Enter value for A")

        A = Console.ReadLine()

        Trace.WriteLine("Tracing A")

        Debug.Print("Debugging A")

        C = A

        'start an until loop

        Do

            B += 1   'another way of writing B = B + 1

            C *= A   'another way of writing C = C*A

        Loop Until B >= 4

        'Output result

        Console.WriteLine("Final result: {0}", C)

        'use console.readline to keep console displayed

        Console.ReadLine()

    End Sub

    End Module

​