求大神写一段VB代码，要求msgbox输出红色区域内的值，一共4个msgbox

Dim shu As String, zong As String
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ""
Exit Sub
End If
If Text2.Text = "" Then
MsgBox ""
Exit Sub
End If
aaa = Val(Text1.Text)
bbb = Val(Text2.Text)
ReDim m(bbb)

For i = 1 To bbb
m(i) = 0
X1:
Randomize
a = Int(Rnd * aaa) + 1
If i = 1 Then
m(1) = a
Else
For j = 1 To i - 1
If a = m(j) Then
GoTo X1
Else
m(i) = a
End If
Next
End If
Next
For k = 1 To bbb
List1.AddItem m(k)
Next k
End Sub
Private Sub Form_Load()
Command1.Caption = ""
Label1.Caption = ""
Label2.Caption = ""Text1.Text = ""
Text2.Text = ""
End Sub