Ma no .... devi usare un array di controlli ... Chiami tutti i controlli

txt

e inserisci i valori da 0 a 30 nella proprieta' Index

e fai lo stesso con
Quindi scrivi qualcosa come

codice:
Private Sub crea_Click()
   Dim ix As Long
   For ix = 0 To 30
      txt(ix).Text = Format$(CDate(CStr(ix+1) & "/" & Combo1.Text & "/" & Combo2.Text), "DDDD")
   Next ix
End Sub