Imports System

Public Module Module1

    Public Sub Main()

        Dim Num As Integer = 100

        Do

            Num -= 5

            console.Writeline(Num)

        Loop While Num > 5

        End Sub 'By Jenan and Raphala 9A'

End Module