Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Start a command
    MbeSendCommand "Edit Tags "

'   Coordinates are in master units
    startPoint.x = 16192.111653#
    startPoint.y = 5554.621998#
    startPoint.z = 214748.364700#

'   Send a data point to the current command
    point.x = startPoint.x
    point.y = startPoint.y
    point.z = startPoint.z
    MbeSendDataPoint point, 1%

    point.x = startPoint.x + 0.025013#
    point.y = startPoint.y + 0.025002#
    point.z = startPoint.z
    MbeSendDataPoint point, 1%

'   When a command brings up a modal dialog,
'   a later statement must close the dialog,
'   or the MbeState.modalDialogByUser property
'   should be set to 1 so that the user must close
'   the dialog when the macro is executed.
'   Also, you may not use the debugger "Step"
'   commands while a modal dialog is displayed.

'   Opened modal dialog "Edit Tags [Titelblock]"

'   Send a keyin that can be a command string
    MbeSendKeyin "TAGJOURNAL EDIT TAG Planerstellung Datum"

    MbeSendKeyin "TAGJOURNAL EDIT TAG Bauwerksteil"

    MbeSendKeyin "TAGJOURNAL EDIT VALUE B"

 '  Closed modal dialog "Edit Tags [Titelblock]"

'   Following comment is the command to close a modal dialog
   MbeSendCommand "MBE1 CLOSEMODAL OK"
End Sub