Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim counter As Integer For counter = 1 To 100 Console.Write("{0} ", counter) ' every tenth value, display a tab and the value If counter Mod 10 = 0 Then Console.WriteLine(vbTab & counter) End If Next counter End Sub End Class