求VB学生评语生成器

Option Explicit

'声明德智体美劳变量
Dim Mind As String, Score As String, PE As String
Dim Manner As String, Labor As String, jy As String

Private Sub Combo1_Click()
jy = Combo1.Text
End Sub

'生成
Private Sub Command1_Click()
If Text3.Text = "" Then
MsgBox "姓名栏不能为空", vbOKOnly, "提示"
Text3.SetFocus
Text1.Text = ""
Else
Text1 = " " + Text3.Text + "同学一学期来" + Mind + Score + _
PE + Manner + Labor + Text2.Text + jy
End If
End Sub

'保存
Private Sub Command2_Click()
Dim sF As String
sF = Text3.Text + ".txt"
Open sF For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Command3_Click()
End '退出
End Sub

'德
Private Sub Option1_Click(Inde