Imports System

Public Module Module1

    Public Sub Main()

        Console.writeline("what is your favorite animal?")

        Dim faveanimal1 as string = console.readline()

        Console.writeline("what is your second favorite animal?")

        Dim faveanimal2 as string = console.readline()

        Console.writeline("what is your third favorite animal?")

        Dim faveanimal3 as string = console.readline()

        FavoriteAnimal(faveanimal1, faveanimal2, faveanimal3) 

    End Sub

    Sub FavoriteAnimal(ByVal Faveanimal1 As String, FaveAnimal2 As String, FaveAnimal3 As String)

        Console.Writeline("Your favorite animals are " & faveanimal1 & "s, " & faveanimal2 & "s, and " & faveanimal3 & "s.")

        console.readline()

    End Sub

End Module