我正在尝试的代码：
Dim Flag as String, P_Font as Font
Flag = "Comic Sans MS, 15.75pt"
Debug.Print(Flag)
Dim cvt As New FontConverter
P_Font = CType(cvt.ConvertFromString(Flag), Font)
Debug.Print(P_Font.ToString)
Flag = cvt.ConvertToInvariantString(P_Font)
Debug.Print(Flag)
Debug.Print输出：
Comic Sans MS, 15.75pt
[Font: Name=Microsoft Sans Serif, Size=8,25, Units=3, GdiCharSet=1, GdiVerticalFont=False]
Microsoft Sans Serif, 8.25pt
为什么FontConverter会更改字体系列和大小？
修改
更改：
P_Font = CType（cvt.ConvertFromString（Flag），Font）
到
P_Font = CType（cvt.ConvertFrom 不变字符串（标记），字体）
现在代码可以运行。