quando attribuisci il numero a mazzo2 imposta anche Text nel bottone :

codice:
For i = 1 To 112
            'indice casuale all'interno di mazzo1
            j = r.Next(0, mazzo1.Count)

            'sposto l'elemento
            mazzo2.Add(mazzo1(j))
            mazzo1.RemoveAt(j)
            Try
		Dim bottone As Control() = Me.Controls.Find("B" + i, False)
		bottone(0).Text = mazzo1(j).ToString()
	    Catch

	   End Try
Next
EDIT : era inutile fare due cicli uguali e l'ho inserito nel tuo