Ejecutar una función en VBA

Buen dia Chicos!! Les comento que me encuentro con el siguiente problema. Encontré esta conexión a mysql. La verdad funciona perfecto para lo que quiero. El tema es que no se como llamarlo. Intente con call conectar1 pero no lo ejecuta.

Private Function Conectar1() As Boolean
On Error GoTo Ver
'CONECTA LA BASE DE DATOS
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=LocalHost;" & _
"DATABASE=estudioabogado;" & _
"USER=root;" & _
"PASSWORD=root;" & _
"Option=3"
Exit Function
Ver:
err.Clear
Conectar = False
End Function

muchas Gracias!!