Answer:
Module Module1
Sub Main()
Dim num As Integer
Console.WriteLine("Enter a number: ")
num = Console.ReadLine()
Console.WriteLine("The number you entered is: " & num)
Console.WriteLine("The number ten times larger than the number you entered is: " & num * 10)
Console.ReadLine()
End Sub
End Module