Modify Working Unit Settings via VBA or Key-in

MicroStation V8i (SELECTseries 3)

I have to change Format on a number of .dgn file from MU:SU:PU to Std MU and the Accuracy to 0.1234 or 0.0000, I figure there is either a VBA command (not finding) or

a super Key-in command. I asked the question a few various ways did not read any examples I needed. I saw a comment on the "tcb-> command and on MDL ......  nothing.

appeared it was for the above. I also found this command: 

Sub Accuracy4()
' 122113 Drawing Accuracy setting, TEST
ActiveSettings.CoordinateAccuracy = msdAccuracy4
CadInputQueue.SendKeyin "m,ms Set Accuracy 0.0001"
End Sub

Did not seem to do anything. Can someone help me on this?