para comenzar el conteo de la fila de tres numeros es de 3 en tres pero en direccion inversa o sea de 504 hasta 388 y la de cuatro numeros es de tres tambien
prueba este codigo
Private Sub Command1_Click()
For x = 300 To 400
For y = 1500 To 1600
Text1.SelText = " " & x & " " & y
y = y + 3
x = x + 3
Next y
Next x
End Sub
