Dim neato
Set neato = CreateObject("Wingraphviz.neato")
if neato is Nothing then
    Msgbox "Unable to load the object Wingraphviz.neato"
end if
Dim strSVG
strSVG = neato.ToSVG("graph X { Y; }; ")
Msgbox "DOT as SVG output is:" + vbcrlf + strSVG
Set strSVG = Nothing
Set neato = Nothing