Und welchen Fehler bekommst Du ?
Oder was erwartest Du ?
Rnd(0,11) gibt eine Zahl zwischen 0 und 10 ist das wirklich was Du willst ?
For i = 0 To 12 ist das richtig ? Das sind 13 Durchgänge ?
Du könntest den Code viel vereinfachen mit einem Button-Array.
Warum hast Du einen Index der mit 0 anfängt und einen anderen der mit 1 anfängt ?
Alle Button_Click Events könnten in einer einzigen Routine behandelt werden.
Beispiel:
Sub BText(BIndex As Int, BInpText As String)
Buttons(BIndex).Text = BInpText
End Sub
Beste Grüsse.