Imports System 

​

​

Public Module Module1 

​

Public Sub Main() 

​

Console.WriteLine("what is your name") 

​

dim username as string = console.ReadLine() 

​

console.WriteLine("what is yor password") 

​

dim password as string = console.ReadLine() 

​

if username = "willamthe3.333" then 

​

console.WriteLine("welcome williamthe3.333") 

​

end if 

​

if password = "hornetdoesshaw" then 

​

console.WriteLine("welcome idioit") 

​

end if 

​

console.writeline("what do you want to search") 

​

dim search as string = console.ReadLine() 

​

if search = "windette" then 

​

console.writeline("hi im windette and welcome to idiot centrel here we bully the inocent into situation that they didn't deserve and were going to get you morons out of the great big hole you dug") 

​

end if 

​

End Sub 

​

End Module