Imports System
Public Class Program
Public Shared Sub Main()
Dim n As Integer = 28, divisor As Integer = 6
Dim remainder As Integer = n
While remainder >= divisor
remainder = remainder - divisor
End While
Console.Write("The remainder is: " & remainder)
End Sub
End Class
' run
'
' The remainder is: 4
'