Imports System

Public Module Module1

    Public Sub Main()

        Dim j As Integer   ' Human years

        For i As Integer = 7 To 140 Step 7

        j = j + 1

        Console.WriteLine(j & " Human year(s) = " & i & " Dog year(s).")

    Next i

    End Sub

End Module