Imports System

Public Module Module1

    Public Sub Main()

        dim ans as string

        Console.WriteLine("Need help?")

        do 

            ans = Console.ReadLine()

            if ans = "yes" or ans = "YES" or ans = "Yes" then

                Console.WriteLine("Contact Asjid Javed, Haseeb Tariq or dat creepy slendy boi at the back. I think he was named Abdullah Shaikh")

            else if ans = "no" or ans = "NO" or ans = "No" then

                    Console.WriteLine("Take care. May Allah keep you as happy as you can be.")

                else

                    Console.writeline("Invalid Answer. Try again.")

            end if

        loop until ans = "yes" or ans = "no" or ans = "YES" or ans = "NO" or ans = "Yes" or ans = "No"

    End Sub

End Module