Module Tester
Sub Main()
Dim firstNumber, secondNumber As String
Dim number1, number2, sumOfNumbers As Integer
firstNumber = 10
secondNumber = 20
number1 = firstNumber
number2 = secondNumber
sumOfNumbers = number1 + number2 ' add numbers
Console.WriteLine("The sum is {0}", sumOfNumbers)
End Sub ' Main
End Module
The sum is 30