visual basic yardım lütfen

arkadaşlar hoca yeni bir ödev verdi
visual basic de
klavyeden 1 sayısına basınca yanına *,
2 sayısına basınca yanına **
3 sayısına basınca yanına ***
1000000  sayısına basınca yanına (birmilyon) tane *   koyacak  bunu da listbox a yazdıracak.
bunu nasıl yaparız?
yani yapmak istediğim şu:
*  1
**  2
***  3
(birmilyon)*  1000000
şimdiden çok teşekkürler.

Dim a, c As Integer
        Dim b As String
        a = TextBox1.Text
        b = "*"
        c = b.Length
        Do While a <> c
            b += "*"
            c = b.Length
        Loop
        ListBox1.Items.Add(b)

çok teşekkür ederim

Birşey değil :D