From www.afralisp.com

Want to Load and Run an AutoLisp routine from VBA?

Sub RunLisp()

  ThisDrawing.SendCommand "(Load ""Alispfile"")" & vbCr & "Alispfile" & vbCr

End Sub