Imports System

Public Module Module1

    Public Sub Main()

        'You can use a loop to access the characters in turn

Dim s as string = “Hello World”

'BECAUSE WE START AT 0 THE MAX VALUE OF I NEEDS TO BE THE LENGHT OF THE WORD - 1

Console.WriteLine("The word printed down the screen")

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 2 = 1 Then

     'PRINT EVERY SECOND LETTER IN UPPER CASE.

    sUpperCase = s(i)

    Console.Write(sUpperCase.ToUpper())

  Else

    Console.Write(s(i))

  End If

Next

​

    End Sub

End Module