Imports System
 
Public Class Test
	Public Shared 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 number>")
theNumber = Int(Console.ReadLine())
Console.WriteLine("Now " & theWord & " is the word and the number is " & theNumber)
Console.ReadKey()
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCURpbSB0aGVOdW1iZXIgQXMgSW50ZWdlcgpEaW0gdGhlV29yZCBBcyBTdHJpbmcKdGhlV29yZCA9ICJCaXJkIgp0aGVOdW1iZXIgPSA5CkNvbnNvbGUuV3JpdGVMaW5lKHRoZVdvcmQgJiAiIGlzIHRoZSB3b3JkIikKQ29uc29sZS5Xcml0ZUxpbmUoIkFuZCB0aGUgbnVtYmVyIGlzICIgJiB0aGVOdW1iZXIpCkNvbnNvbGUuUmVhZEtleSgpCnRoZVdvcmQgPSAiQ2F0IgpDb25zb2xlLldyaXRlTGluZSgiRW50ZXIgYSBudW1iZXI+IikKdGhlTnVtYmVyID0gSW50KENvbnNvbGUuUmVhZExpbmUoKSkKQ29uc29sZS5Xcml0ZUxpbmUoIk5vdyAiICYgdGhlV29yZCAmICIgaXMgdGhlIHdvcmQgYW5kIHRoZSBudW1iZXIgaXMgIiAmIHRoZU51bWJlcikKQ29uc29sZS5SZWFkS2V5KCkKCUVuZCBTdWIKRW5kIENsYXNz