Crear estilo de texto Romantic con vba de autocad

Con el siguiente código creo un nuevo estilo de texto:

Sub NuevoEstiloTexto() confi

Dim MiEstilo As AcadTextStyle

Set MiEstilo = ThisDrawing.TextStyles.Add("SUDP")

MiEstilo.fontFile = "isocp.shx"

End Sub

El archivo "isocp.shx" se encuentra dentro de la carpeta font, pero quiero que mi texto sea "Romantic"

Y no he podido saber que tengo que poner en vez de "isocp.shx" porque no existe un archivo con el nombre Romantic. Este estilo aparece en la ventana estilo de texto, pero no he podido crearlo mediante código vba.