Estoy Haciendo Un Sudoku Y Como Puedo Poner 81 Numeros En Los Text???

[Jefe_Negro]

Prueba con esto:

Dim oVal As New Collection
Dim X As Integer
Dim n As Integer



'Cargo coleccion con numeros
For X = 1 To 81
oVal.Add X, "N" & CStr(X)
Next

For X = 1 To 81
n = (oVal.Count - 1) * Rnd + 1
Me.Text1(X) = Mid(oVal(n), 1)
Debug.Print Mid(oVal(n), 1)
oVal.Remove n
Next