Module Program
	Sub Main()
		'startup procedure
		Console.WriteLine("Please enter what you wish to do. Encrypt(enter E) or Decrypt(enter D)")
		Dim choice As String
		choice = Console.ReadLine
		
		
		
		'universal variables	
		Dim input As String 			'both methods can use this. just a standard input variable. May change if decryptor decides to use string input
		
		'variables for encryptor
		Dim length As Int16  'this is int16 because operator does not work for char value types
		Dim word As String
		Dim eoutput As String 'eoutput means encryptor output
	
		'variables for decryptor
		
		
		
		If choice = "e" Or choice = "E" Then
			
			
			input = Console.ReadLine
			length = Len(input)
			Dim value1 As Int16
			Dim value2 As Int16
			For c=1 To length Step 2
				value1 = Mid(input, c,2)
				If Mid(word, c+1,1)="," Then
					input=Mid(word, c,1)
				End If
				If Mid (word,c,1) = "," Then
					input=Mid(word, c+1,1)
				End If
				If input = mid(word, c, 2) Then 
					c=c+1
				End If
				value2 = value1 + 64 'and later the key
				eoutput = AscW(value2)
				
				Console.WriteLine(eoutput)
			Next
			
			
		
			
			
		Else
			'Enter Decrption tools
			' TODO: Implement Functionality Here
		End If
		
		
		
		Console.Write("Press any key to continue . . . ")
		Console.ReadKey(True)
	End Sub
End Module