un ejercicio simple de webservice en vb.net

Mi nombre es Carolina, soy de Caracas Venezuela.
Estoy estudiando para la segunda estrella de Microsoft y...
tengo un problemita.
Una de las tareas es pasar el código de un WebService hecho en C# a VB.Net.
El codigo que presento a continuacion posee un WebMethod que suma dos
valores y otro que debe mostrar contactos nuevos. Para esto además esta
definida una clase contacto que está al final.
He eliminado el código de la Región para que se vea más claro. Mi problema
está en el código del WebMethod para VerContacto. Ya hice la clase pero no
sé cómo hacer con el arreglo. He inventado miles de cosas. No conozco el
lenguaje C#, no sé muy bien sobre la equivalencia a VB.
En fin, esto así tal como está da error.

Gracias por la ayuda =)

Caro

PD: Esto sólo para los que no conocen muy bien la razón de ser de un Grupo
de Noticias, si me va a mandar a comprar libros como alguien hizo por ahí
alguna vez, le agradezco obvie esta petición de ayuda y no escriba nada.
GRACIAS.

Imports System.Web.Services

Imports System.Xml.Serialization

<System.Web.Services.WebService(Namespace:="http://microsoft.com/webservices
/")> _

Public Class ojala

Inherits System.Web.Services.WebService

#Region " Código generado por el Diseñador de servicios Web "

<WebMethod()> Public Function Suma(ByVal a As Integer, ByVal b As Integer)
As Integer

Return a + b

End Function

<WebMethod()> Public Function VerContacto() As Contacto

'lo verde es código en C#

'Return New Contacto

Dim aContacto(4) As Contacto

aContacto(0).Nombre = "Alexis Reátegui"

aContacto(0).Email = "alexisr@hotmail.com"

aContacto(0).Telefono = "5552266"

aContacto(1).Nombre = "Jorge Oblitas"

aContacto(1).Email = "dragonsking@hotmail.com"

aContacto(1).Telefono = "4444466"

'New Contacto("Alexis Reátegui", "alexisr@hotmail.com", "5552266")

'New Contacto("Jorge Oblitas", "dragonsking@hotmail.com", "4444466")

'New Contacto("Sergio Victorio", "t-sergiv@microsoft.com", "3333366")

'New Contacto("Guino Henostroza", "guino@hotmail.com", "4564433")

' New Contacto("Daniel Seara", "daniseara@msn.com", "9987667")

Return aContacto(4)

End Function



Public Class Contacto

Public Nombre As String

Public Email As String

Public Telefono As String

'Todas las clases serializables en XML deben poder

'utilizar un constructor sin parámetros

Sub New()

'nada que hacer en este ejemplo

End Sub

Sub New(ByVal nombre As String, ByVal email As String, ByVal fono As String)

Me.Nombre = nombre

Me.Email = email

Me.Telefono = fono

End Sub

End Class

End Class