Module Module1 Sub Main() Dim Salary As Double Salary = InputBox("Enter salary") Console.WriteLine(Salary) End SubEnd Module