If Loop

        Dim s As String
        Console.WriteLine("pelase enter a pet name")
        s = Console.ReadLine
        If s = "cat" Then
            Console.WriteLine("you like cats")
        ElseIf s = "dog" Then
            Console.WriteLine("you like dogs")

        Else
            Console.WriteLine("you are not typed any predefined pets")
        End If


        Console.ReadLine()