Imports System

Public Module Module1

    Public Sub Main()

        Dim subjects(,) As String = {{"math", "english", "science"},{"art", "business", "music"}}

        Dim current As String

        Dim characterCount As Integer = 0

        For row As Integer = 0 To subjects.GetLength(0) - 1

            For col As Integer = 0 To subjects.GetLength(1) - 1

                current = subjects(row, col)

                characterCount += current.Length

            Next

        Next

        Console.WriteLine(characterCount)

    End Sub

End Module