Private Sub Command1_Click()     Dim mtextobj As AcadMText     Dim mtextstring As String     Dim insertionpoint(0 To 2) As Double     Dim width As Double     width = 45     insertionpoint(0) = 50: insertionpoint(1) = 20: insertionpoint(2) = 0     mtextstring = "  "     mtextstring = mtextstring & "aaa"     mtextstring = mtextstring & "bbb"     mtextstring = mtextstring & "ccc"     mtextstring = mtextstring & "ddd"     mtextstring = mtextstring & "  "     acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:\windows\fonts\vani.ttf"     Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(insertionpoint, width, mtextstring) End Sub