I am using SolidWorks 2023 , 
(Even I used InsertModelAnnotations3)
bool result = swDrawing.InsertModelAnnotations(

    (int)swImportModelItemsSource_e.swImportModelItemsFromEntireModel,

    (int)swAnnotationType_e.swNote,

    true,   // All instances

    true,   // Include dimensions

    true,   // Include annotations

    true    // Include DimXpert annotations

);

Below is the macro I have recorded . It is working manually but when I have recorded then it is not working 
' ******************************************************************************

' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 9.83575895400001E-02, 0.2096714815175, 0, True, 0, Nothing, 0)
boolstatus = Part.ActivateView("Drawing View1")
Dim vAnnotations As Variant
vAnnotations = Part.InsertModelAnnotations3(0, 10519023, False, True, True, True)
End Sub

Can Anyone help me how to show DimXeprt or MBD dimensions in drawing view . If it was added in 3D model .SolidworksAPI