i just want to assign all value that i inputed in "Inputbox" to my labels ....
i have 10 labels

Code:
Dim type(10) As Array
Dim sum, ctr As Integer

sum = 0

For ctr = 0 To 9
type(ctr) = InputBox ((ctr + 1) & " : " &"Enter a digit!")
sum = sum + type(ctr)
next ctr


lblAnswer.Text = sum
lbl1.Text = type(ctr)
lbl2.Text = type(ctr)
lbl3.Text = type(ctr)
lbl4.Text = type(ctr)
lbl5.Text = type(ctr)
lbl6.Text = type(ctr)
lbl7.Text = type(ctr)
lbl8.Text = type(ctr)
lbl9.Text = type(ctr)
lbl10.Text = type(ctr)
i want to display all 10 numbers i inputed in my "InputBox" to all my labels help pls