X e Y son números aleatorios generados con la función Rnd.
Si lo que pretendes es que la fecha seleccionada haga referencia a su número da la derecha, el code quedaria así:
Código:
Private Sub Command1_Click()
Randomize
x = Int((6 * Rnd) + 1)
TxtFecha(0).Text = TxtFecha(x).Text
TxtNum(0).Text = TxtNum(x).Text
End Sub
Como estaba antes generaba dos numeros aleatorios diferentes, ahora el mismo número se usa para los dos (txtfecha y txtnum)
Un saludo.