Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Third Number Cap")

        Dim s as string = Console.ReadLine()

        Dim i as integer

        For i = 0 To s.Length - 1

            Console.WriteLine(s(i))

        Next

​

        Dim sUpperCase As String

        For i = 0 To s.Length - 1

            If i Mod 3 = 0 Then

                sUpperCase = s(i)

                Console.Write(sUpperCase.ToUpper())

            Else

                Console.Write(s(i))

            End If

        Next

    End Sub

End Module

​