text的字号和对齐我已设置好了，就是不知道command1～3怎么写代码让他出现随机数已经开平方

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd * 9999) + 1
End Sub
Private Sub Command2_Click()
If IsNumeric(Text1.Text) = True Then
Text2.Text = Sqr(Text1.Text)
End If
End Sub
Private Sub Command3_Click()
If IsNumeric(Text2.Text) = True Then
Text3.Text = Round(Text2.Text, 2)
End If
End Sub

Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd *9000) + 1000
End Sub
Private Sub Command4_Click()
text1.text="":text2.text="": text3.text=""
text1.SetFocus
End Sub