How use mdlDialog_balloonTextShow or other in VBA

Hello, I've made great progresswith your help
today(mythirst for learning)leads me tothe next level
I wouldneed someonetoguidemeto use thecommand"mdlDialog_balloonTextShow"tointegrateinto aVBAClassModule
I have noideahow to use it
Ideclare the functionas"Private", but in myIprimitiveDynamic
how to use?

MicroStationVBA8.05

Dim MePoint As Point2d
Dim MeRec As Point2d
Private Declare Sub mdlDialog_balloonTextShow Lib "stdmdlbltin.dll" (ByVal dbP As Long, ByRef cursorPt As LPoint2d, ByVal showBalloon As Long, ByVal DisplayText As Long, ByRef localItemRectP As BSIRect, ByRef originPtP As LPoint2d, ByVal fontIndex As Long, ByVal textColorP As Long)Private Type LPoint2d
       X As Long
       Y As Long
End TypePrivate Type BSIRect
       Origin As LPoint2d
       Corner As LPoint2d
End TypePrivate Sub IPrimitiveCommandEvents_Dynamics(point As Point3d, ByVal View As View, ByVal drawMode As MsdDrawingMode)MePoint.X = point.X
MePoint.Y = point.Y MeRec  = MePointmdlDialog_balloonTextShow(MeRec, MePoint, True, "Mytext", MeRec, MePoint, 13, 2) end subcan you help me ?

thank a lot