るきお様、ありがとうございます。
意味は良く分かりませんでしたが、貼り付けてみたところエラーは出ず、
無事に動くようになりました。

もとのプログラムも昔にこちらで教えていただいたVB6のものと思います。
その説もありがとうございました。

使用目的は、あるCADから使用できるプログラムの為でして、
全角、半角の区別は厳密にはそのCADのプログラムによっていますので、
違いがでるかもしれません。CADではMS ゴシックが使われています。

MeasureStringは、スクリーンとか印刷で使われていると思いましたが、
そのCAD上では、文字列の扱いでは無く、１文字１文字を配置して表示、印刷される仕様だと思いますので、このような処理が必要となっていました。
重ねて、ありがとうございました。