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

[manzarinaa]

JO que función
que no me la ejecutaaaa
a ver si alguien ve el fallo por dios, que ya me va a dar algo
Dim campos As String
Dim valores As String
Dim sentencia As String
Dim crtlControl As Control

valores = " values('"
campos = " columns("
For Each crtlControl In formulario.Controls
If TypeOf crtlControl Is TextBox Then
If crtlControl.Tag = "Telefono" Or crtlControl.Tag = "idcli" Or crtlControl.Tag = "idpag" Then
valores = Left(valores, Len(valores) - 2)
valores = valores & crtlControl.Text & ", '"
Else
valores = valores & crtlControl.Text & "', '"
End If
campos = campos & crtlControl.Tag & ", "
'guardo la clave ajena
If crtlControl.Tag = "idcli" Then
claveAjena = CInt(crtlControl.Text)
End If
End If
Next crtlControl
'inserto la clave ajena
If tabla = "paginas" Then
campos = campos & "codcli_pag, "
valores = Left(valores, Len(valores) - 2)
valores = valores & claveAjena & ", '"
End If
valores = Left(valores, Len(valores) - 3)
valores = valores & ")"
campos = Left(campos, Len(campos) - 2)
campos = campos & ")"
sentencia = "Insert Into (" & tabla & ") " & valores & campos
MsgBox sentencia
frmNavegador.dbGestion.Execute "'" & sentencia & "'"
End Sub