下記のサンプルソースでMicroStationの作業単位を設定することができます。

Sub SetUnits()
    Dim myUnit As MeasurementUnit
    myUnit.System = msdMeasurementSystemMetric
    myUnit.Base = msdMeasurementBaseMeter
    myUnit.Label = "mm"
    myUnit.UnitsPerBaseDenominator = 1
    myUnit.UnitsPerBaseNumerator = 1000
    ActiveModelReference.MasterUnit = myUnit
    SaveSettings
End Sub