Imports System

Public Module Module1

    Public Sub Main()

        Dim strGoat as string = "Lebron James"

        Dim chrLetter as Char 

        Dim intlength as integer

        chrletter= strGoat.chars(2)

        intlength = strGoat.length

        console.WriteLine(chrletter)

        console.WriteLine(intlength)

    End Sub

End Module