Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello Charms")

        dim x as integer

        x = 0

        do 

            x = x + 1

            console.WriteLine(x)

            loop until x = 10

    End Sub

End Module