cambiar el orden de coger datos en un for each, del ultimo al primero

[manzarinaa]

ya el codigo esta actualmente asi:
Public Sub AltaEnBBDD(ByRef formulario As Form, tabla As String)
Dim campos As String
Dim valores As String
Dim sentencia As String
Dim crtlControl As Control
valores = "'"
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
Else
valores = valores & crtlControl.Text & "', '"
campos = campos & crtlControl.Tag & ", "
End If
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
End If
End If
Next crtlControl
If tabla = "paginas" Then
valores = Left(valores, Len(valores) - 2)
campos = campos & "codcli_pag"
valores = valores & claveAjena
Else
valores = Left(valores, Len(valores) - 3)
End If
campos = Left(campos, Len(campos) - 2)
sentencia = "INSERT INTO " & tabla & " (" & campos & ")" & " VALUES (" & valores & ")"
MsgBox sentencia
frmNavegador.dbGestion.Execute "'" & sentencia & "'"
End Sub
y sale el mismo error