Imports System

Public Module Module1

    Public Sub Main()

        Dim starttext As string 

        Dim ciphertext as string 

        Dim letter as string 'This saves all the variables as various types. 

        Dim ascii as integer

        Dim movement as integer 

        Dim choice as integer

        Console.writeline("Please enter the text you would like to submit to this program")

        starttext = Console.ReadLine() 'saves the text as starttext

        While choice <> 1 and choice <> 2 

            Console.writeline("Enter 1 to encode and enter 2 to decode")

            choice = Console.ReadLine() 'saves choice

        End While

        While movement < 1 And movement > 25 

            Console.WriteLine("Please enter a number between 1 and 25")

        End while  

        If choice = 1 then 

            For n = 0 To starttext.Length - 1 

            letter = starttext.Chars(n)

            ascii = Asc(letter)

            If ascii >= 65 and ascii <= 90 then 

                If ascii = ascii + movement then 

                Else 

                    ascii = ascii + movement - 26 'to get the number of the letters in the alphabet

                End if

            End if  

        End if

        ascii = ciphertext 

        Console.writeline(ciphertext)

        Console.Read()

    End Sub

End Module