在vb程序中，怎么设计一个设置字符格式的程序

Private Sub CommandButton1_Click()
If Text1.Font.Name = "宋体" Then
Text1.Font.Name = "黑体"
Else
Text1.Font.Name = "宋体"
End If
End Sub

修改字体（点击按钮，将Text1文本框中的字体样式在"黑体"和"宋体"间切换）
（如果是修改其他属性，以此类推）
只要查查相关属性值，修改还是很轻松的。

我怕我写出来你都现在都难以理解。思路也不复杂，把一段字体格式、样式 写在文本框里面，然后通过代码分析文本框的内容得出要对字体的设置信息。
如这样写文本框的内容：华文楷体,20,粗体1,&hff0000
然后通过代码就得到文本框里面的每一个信息：
dim f() as String
f=split(text1.text,",") '这里用到数组
这样子就可以得到里面的详细的每一个设置信息
下一步设置：
Text1.FontName=f(0) ‘字体名称
Text1.FontSize=Val(f(1)) '字体大小
Text1.FontBold=iif(f(2)="粗体1",True,False) ' ”粗体1“表示设置粗体，否则取消设置粗体
Text1.ForeColor=Val(f(3)) '设置字体颜色(前景色)；&Hff0000是表示红色；Val()是一个转换为数值型的函数
由于你刚学，不说那么复杂的，就比如说随便乱序输入文本框字体设置：20,华文中宋,&hffff00,斜体1，
反正你只要理解这么几个文本框字体设置的属性的每个属性的作用和使用方法就行了。

1、00,002
前面的零不省略
2、2.4495
用#号表示是，为零的两端数字不显示
3、00,000+02
用0表示时零不省略
4、 -2.4495