Imports System Module Module1 Sub Main() Console.Write("Centigrade value: ") Dim tCentigradeString As String = Console.ReadLine() Dim tCentigrade As Double = Double.Parse(tCentigradeString) Dim tFahrenheit As Double = 32 + tCentigrade * 9 / 5 Console.WriteLine("Fahrenheit value: " & tFahrenheit) End Sub End Module