No se si te entendi bien...
Crea una matriz de textbox llamada txtfecha de 6, otra matriz de txtnum de 6 y un commandbutton.
Código:
Private Sub Command1_Click()
Randomize
x = Int((6 * Rnd) + 1)
Randomize
y = Int((6 * Rnd) + 1)
TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(y).Text
End Sub
Con este code cada vez que pulse es cmd cargará el txtfecha(0) y el txtnum(0) con los valores de el txt correspondiente dependiendo del numero aleatorio.
Si te he liado dimelo y te mando un ejemplo.
Un saludo.