Visual Basic枚举系统字体，已附代码与截图，怎么过滤带有@开头的字体名字？

Question

使用了Combo控件获取系统字体，能成功显示效果，但是与效果有点出入
就是获取的字体列表中，多了带有@开头的字体名称，请问怎么过滤掉这些@开头
的字体名字？
以下是代码

Private Sub Form_Load()
Dim i As Integer
For i = 0 To Screen.FontCount ' 枚举系统字体
 Combo1.AddItem Screen.Fonts(i)
Next
End Sub

以下是截图，截图中，箭头指向的就是列表中多出来@开头的字体名称

Answer 1

Combo1.AddItem Screen.Fonts(i)
->
if len(Screen.Fonts(i)) = len(replace(Screen.Fonts(i), "@", "")) then Combo1.AddItem Screen.Fonts(i)