Ciao a tutti!

Sto provando a utilizzare VBA per scrivere una funzione che mi calcoli la distanza fra due città servendosi di mappoint 2002.
Ho scritto la seguente

codice:
Public Function Distanza(Partenza As String, Arrivo As String) As String

 Application.Volatile True

 Dim objApp As New Mappoint.Application
 Dim objMap As Mappoint.Map
 Dim objRoute As Mappoint.Route
  
 'Impostare l'applicazione
 Set OnjApp.units = geoKm
 Set objMap = objApp.ActiveMap
 objApp.Visible = False
 objApp.UserControl = True

 'Creare una posizione sulla carta
 objRoute.Waypoints.Add objMap.FindResults(Partenza).Item(1)
 objRoute.Waypoints.Add objMap.FindResults(Arrivo).Item(1)
 objRoute.Calculate
 
 Distanza = CStr(objRoute.Distance)
 
End Function
Però mi restituisce "Errore di compilazione: tipo definito dall'utente non definito" e non capisco come risolvere...
ah...è la mia prima funzione....
I valori che passo su excel sono
=Distanza(C6;C7)
Con C6=Roma
C7=Venezia

Mi potete aiutare?
Sono due giorni che ci lavoro e ormai sto impazzendo!

HELP!!!

Grazie

Alder