Visual Basic.NET - Ayuda con aplicacion de consola Vb 2010 arreglos o vectores

Sub Main()

	Dim s As String

	Dim intCont As Integer

	Dim Apellidos(10) As String

	Dim intGomez As Integer

	Dim intPerez As Integer

	' Introducción de datos

	For intCont = 1 To 4

		Console.WriteLine("Introduzca el apellido del usuario número " + intCont.ToString)

		s = Console.ReadLine()

		Apellidos(intCont) = s

	Next intCont

	'Contamos Gómez y Pérez

	For intCont = 1 To 10

		If Apellidos(intCont) = "Gómez" Then

			intGomez = intGomez + 1

		ElseIf Apellidos(intCont) = "Pérez" Then

			intPerez = intPerez + 1

		End If

	Next intCont

	Console.WriteLine("Hay " + intGomez.ToString + " Gómez.")

	Console.WriteLine("Hay " + intPerez.ToString + " Pérez.")

	Console.ReadLine()

End Sub