Error de compilación: Se esperaba: fin de la instrucción

Buenas, estoy intentando editar una función para que al meter un grado en froma decimal me lo convierta el valor en la forma de grados, minutos y segundos.
La forma de hacerlo me la he bajado de la página de Soporte Microsoft. Haciendo lo que ellos me dicen es:

Function Convertir_Grado(Grado_Decimal) As Variant
With apllication
'Introducir parte entera del grado'
Grados = Int(Grado_Decimal)
'Los minutos son igual a 60 veces el decimal del grado
Minutos = (Grado_Decimal - Grados) * 60
'Los segundos son igual a 60 veces el decimal que se obtienen al calcular los minutos
Segundos = Format(((Minutos - Int(Minutos)) * 60), "0")
'Devulve el resultado de la conversión del Grado Decimal'
'(Por ejemplo, 10.46=10º27'36'')
Convertir_Grado=" "&Grados&"º "&Int(Minutos)&"' "_
& Segundos + Chr (34) &
End With
End Function

Pero lo que está en rojo me da un error de la forma: Error de compilación: Se esperaba:fin de la instrucción.

En el foro he visto un problema similar, y la respuesta era que entre los comillados se debía dejar un espacio, que es lo que he hecho. Pero me sigue apareciendo el mismo error.

Gracias por vuestra ayuda de antemano.

Un saludo

Yo creo que te sobra el "&" del final y que la división de la línea también está mal:

Convertir_Grado=" " & Grados & "º " & Int(Minutos) & "' " & Segundos & Chr (34)

Así debería de funcionar, creo yo.

Saludos.

En eso tienes razón, es que me he colado y lo he puesto sin querer. En la función que yo tengo ese & no está.

No obstante el error no me lo dirige ha esa zona sino al "º " que he indicado en el anterior mensaje, y no sé porque de ese fallo.

Gracias por esta respuesta tan rápida.

Separa con espacios:
Convertir_Grado=" " & Grados & "º " & Int(Minutos) & "' " & Segundos + Chr (34)

Cita:

---

Iniciado por Eligio

Separa con espacios:
Convertir_Grado=" " & Grados & "º " & Int(Minutos) & "' " & Segundos + Chr (34)

---

averigua el ascii y luego usa char(num) y eso no te dara problema