Convertir dato en letras en su equivalente en números?

[abeh]

Hola a todos,

Estoy haciendo un programa en Visual Basic para Excel 2003 que lee datos en la variable Valor_Celda en letras de la hoja1 y quiero que al salir de la Subrutina "Equivalente" salga su equivalente en numeros, el problema que tengo es que cuando regresa de la subrutina, el valor de la variable Dec_Unid es "vacio", aqui el código:

Private Sub Actualizar_Click()
Dim Valor_celda as variant
Dim Dec_Unid as integer

For n=0 to 10
Valor_celda=ActiveSheet.Cells(1, 3 + n)
Call Equivalente(Valor_celda, Dec_Unid)
Next n

End Sub

---------------------------------------------------------------------------------------
Public Sub Equivalente(ByVal Valor_celda As String, ByVal Dec_Unid As Integer)

Select Case Valor_celda
Case 0
Valor_celda = "PEDRO"
Case 1
Valor_celda = "JOSE"
Case 2
Valor_celda = "JUAN"
Case 3
Valor_celda = "MARIA"
Case 4
Valor_celda = "LUISA"
Case Else
Stop
End Select
End Sub

¿Alguna idea?, Gracias de antemano.