Attribute VB_Name = "Convert"
Option Explicit
Public Farenheit As Single, Celsius As Single, sCelsius As String, sFarenheit As String

Public Sub Main()
'Obtain input from user
 Farenheit = InputBox("Value in Farenheit degrees")
 'Convert from Farenheit to Celsius
 Celsius = 5 / 9 * (Farenheit - 32)
 sCelsius = CStr(Celsius)
 sFarenheit = CStr(Farenheit)
 'Print the result
 'MsgBox "The result is coming ..."
 MsgBox sFarenheit + " degrees Farenheit are " + sCelsius + " degrees Celsius"
 'Printer.Print Farenheit; " degrees Farenheit are "; Celsius; " degrees Celsius"
End Sub