Visual Basic - Ayuda Urge matrices

este es mi codigo pero me anda fallando cuando pido fila y columnas

ejemplo pido 5 filas y 3 columnas me imprime

a a a
a
a
a
a

y no me rellena la segunda columna y la tercera lo que quiero es que me salga esto

aaa
aaa
aaa
aaa
aaa

espero que me puedan ayudar gracias y buen dia saludos.

Private Sub Command1_Click()
f = InputBox("Cuantas Filas")
c = InputBox("Cuantas Columnas")
R = Rnd()
For a = 1 To f - 1
i = Text1.UBound
Load Text1(i + 1)
Text1(0).Visible = True
Text1(0).Text = Int(10 * Rnd())
Text1(i + 1).Visible = True
Text1(i + 1).Top = Text1(i).Top + 1300
Text1(i + 1).Text = Int(10 * Rnd())
Next a
For b = 1 To c - 1
i = Text1.UBound
Load Text1(i + 1)
Text1(0).Visible = True
Text1(i + 1).Visible = True
Text1(i + 1).Left = Text1(i).Left + 1300
Text1(i + 1).Text = Int(10 * Rnd())
Next b
End Sub

Prueba de esta otra manera
Private Sub Command1_Click()
f = InputBox("Cuantas Filas")
c = InputBox("Cuantas Columnas")
j = f * c
Text1(0).Text = Int(10 * Rnd())
t = Text1(0).Top
l = Text1(0).Left
For i = 1 To j - 1
Load Text1(i)
Text1(i).Text = Int(10 * Rnd())
t = t + 1300
If i Mod f = 0 Then
t = Text1(0).Top
l = l + 1300
End If
Text1(i).Top = t
Text1(i).Left = l
Text1(i).Visible = True
Next i
End Sub

I'm a big cock fan, i like black guys with a big verga, cause im a latin horny. I like feel black monster cock in my ass and do blowjob and then they cum in my face. If you are a black guy with a monster cock agregate my mail [email protected] and fuck me please.
One big kiss in your mosnter cock :O