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

'   Coordinates are in master units
    startPoint.x = 9647.686874#
    startPoint.y = 11314.692328#
    startPoint.z = -0.042667#

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

    point.x = startPoint.x + 28.911502#
    point.y = startPoint.y + 21.122559#
    point.z = startPoint.z
    MbeSendDataPoint point, 4%
End Sub
