Dim data(10) As String

Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "Isi Jumlah", vbCritical, "salah"
Text1.SetFocus

ElseIf IsNumeric(Text1) = False Then
MsgBox "Jumlah Diisi dengan Angka", vbCritical, "salah"
Text1.SetFocus

ElseIf Val(Text1) > 10 Then
MsgBox "Jumlah Tidak Lebih dari 10", vbCritical, "salah"
Text1.SetFocus

Else

For a = 1 To Val(Text1)
data(a) = InputBox("Input Data Ke - " & a)
Next a

For a = 1 To Val(Text1)
Text2(a) = data(a)
Text2(a).Visible = True
Next a

End If

End Sub

Private Sub Command2_Click()

For a = 1 To Val(Text1)
If IsNumeric(data(a)) = True Then
List1.AddItem data(a)
ElseIf IsNumeric(data(a)) = False Then
List2.AddItem data(a)
End If
Next a

End Sub

Private Sub Command3_Click()
End
End Sub