Option Explicit

Dim t( 1  To  10 ) As TextBox
Dim WithEvents btnCount As CommandButton

Private Sub btnCount_Click()
   Dim i As Long
   Dim j As Long
   For i =  1  To  10 
      j = Rnd *  9  +  1 
      ReplaceTexts t(i), t(j)
   Next
End Sub

Private Sub ReplaceTexts(ByVal t1 As TextBox, t2 As TextBox)
   Dim s As String
   s = t1.Text
   t1.Text = t2.Text
   t2.Text = s
End Sub

Private Sub Form_Load()
   'здесь можно просто присвоить ссылки на существущие текстбоксы
   'Set t(1)=Text1
   'Set t(2)=Text2 'и т.д.
   Dim i As Long
   For i =  1  To  10 
      Set t(i) = Me.Controls.Add("VB.TextBox", "t_" & i)
      t(i).Move  30 , i *  285 , Me.ScaleWidth -  60 ,  255 
      t(i).Visible = True
      t(i).Text = Format(Now + i, "dd MMMM yyyy (dddd)")
   Next
   Set btnCount = Me.Controls.Add("VB.CommandButton", "btnCount")
   btnCount.Move Me.ScaleWidth \  3 , i *  285  +  120 ,  1305 ,  345 
   btnCount.Caption = "Count"
   btnCount.Visible = True
   Me.Height = Me.Height - Me.ScaleHeight + btnCount.Top +  450 
End Sub