Imports System

Public Module Module1

    Public Sub Main()

        Dim theNumber AS Integer

        Dim theWord AS String

        theWord = "Bird"

        theNumber = 9

        Console.WriteLine(theWord & " is the word")

        Console.WriteLine("And the number is " & theNumber)

        Console.ReadKey()

        theWord = "Cat"

        Console.WriteLine("Enter a nomber>")

        theNumber = (Console.ReadLine())

        Console.WriteLine("Now " & theWord & " is the word and the number is "& theNumber)

        Console.ReadKey()

    End Sub

End Module