Imports System
Public Module Module1
Public Sub Main()
dim i as integer
for i = 217 to 489
if i mod 3 = 0 then
Console.WriteLine(i)
end if
next
End Sub
End Module