求vb一个编程

窗体上有一个文本框Text1，一个标签Label1，一个命令按钮。
编写一个程序，当在Text1中输入一个大写字母后，单击Command1,将在标签上显示如下图案：

***A***
**BBB**
*CCCCC*
.......
*CCCCC*
**BBB**
***A***

例如：输入字符E后，输出结果如图。
要求：
（1）文本框Text1中只允许接收一个字符；（提示：通过属性设置）
（2）输入字母所在行的左右没有星号“*”；其它行两侧按要求填上星号；
（3）每行行尾使用Chr(13) & Chr(10)换行。

Private Sub Form_Load()
Text1.MaxLength = 1

End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim s As String

n = Asc(UCase$(Text1.Text)) - 64

For i = 1 To n
s = s & String$(n - i, "*")
For j = 1 To (i * 2 - 1)
s = s & Chr(64 + i)
Next j
s = s & String$(n - i, "*")
s = s & vbCrLf
Next i

For i = n - 1 To 1 Step -1
s = s & String$(n - i, "*")
For j = 1 To (i * 2 - 1)
s = s & Chr(64 + i)
Next j
s = s & String$(n - i, "*")
s = s & vbCrLf
Next i

Label1.Caption = s

End Sub

Private Sub Command1_Click()
aaa = Asc(Text1.Text) - 64
For i = -aaa + 1 To aaa - 1
Label1.Caption = Label1.Caption & String(Abs(i), "*") & String(aaa - Abs(i), Chr(64 + Abs(aaa) - Abs(i))) & String(Abs(i), "*") & Chr(13) & Chr(10)