Imports System

Public Module Module1

    Public Sub Main()

        Dim Height as decimal

        Dim Name as string

        Dim Count as integer

        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")

        Console.WriteLine("******************************")

        Console.WriteLine("WELCOME TO SUPER ROLLERCOASTER")

        Console.WriteLine("******************************")

        Console.WriteLine("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~")

        Console.WriteLine("   ")

        For Count = 1 to 3

        Console.WriteLine("Please enter your name")

        Name = console.ReadLine()

        Console.WriteLine("   ")

        Console.WriteLine(Name & " What is your height as a decimal ?")

        Height = console.ReadLine()

           IF Height mod 1 = 0 or Height < 0 THEN

              Console.WriteLine("   ")

              Console.WriteLine("Invalid height " & Name & " Please enter a suitable height")

              Console.WriteLine("   ")

           ELSE IF Height > 1.2 THEN

                   Console.WriteLine("   ")

                   Console.WriteLine(Name & " You can go and ride!")

                   Console.WriteLine("   ") 

           ELSE IF Height > 0 and Height < 1.2 THEN

                   Console.WriteLine("   ")

                   Console.WriteLine("Sorry " & Name & " you can't ride")

                   Console.WriteLine("   ")

           END IF

        Next 

            Count = Count - 1

        Console.WriteLine("^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^")

        Console.WriteLine("******************************")

        Console.WriteLine("   HAVE A GREAT TIME RIDERS   ")

        Console.WriteLine("******************************")

        Console.WriteLine("______________________________")

    End Sub

End Module

​