Attribute VB_Name = "Incloop"
Option Explicit
Dim Lower As Integer, Upper As Integer, Step As Integer, fahr As Single, celsius As Single, scelsius As String, sfahr As String

Public Sub Main()

Lower = 0    'lowest temperature
Upper = 300  'highest temperature
Step = 20    'increment step

' a simple for structure

For fahr = Lower To Upper Step Step
     celsius = 5 / 9 * (fahr - 32)
     scelsius = CStr(celsius)
     sfahr = CStr(fahr)
     MsgBox " Fahrenheit " + sfahr + "  has as equivalent in Celsius: " + scelsius
Next
End Sub