Copiar datos entre textbox

Hola Experto

Tengo el siguiente problema, tengo el siguiente código con el cual agrego en tiempo de ejecución de 1 a 5 texbox, eso funciona de lo mejor, lo que no se como hacer es que cuando se pierda el focus el 1 texbox la información se copie al segundo y cuando el segundo pierde el focus la información se copia al tercero y así sucesivamente, espero haberme explicado bien

Este es el código con el cual creo lo texvox en tiempo ejecución .... Que se podría hacer ?

Option Explicit
Private btnObj(), Txtbx() As TextBox
Private Lbl(), Lbl2() As Label
Dim i As Long
Private Sub Combo1_Click()
Dim i, j, por As Integer
j = Val(Combo1.Text)
For por = 1 To j
i = 1 + i
ReDim Preserve btnObj(i)
Set btnObj(i) = Controls.Add("VB.TextBox", "btnObj" & i)
With btnObj(i)
.Visible = True
.Width = 1500
.Height = 300
.Text = ""
.Top = 10 + i * 300
.Left = 1500 '
End With
ReDim Preserve Txtbx(i)
Set Txtbx(i) = Controls.Add("VB.TextBox", "Txtbx" & i)
With Txtbx(i)
.Visible = True
.Width = 1500
.Height = 300
.Text = ""
.Top = 10 + i * 300
.Left = 4500 '
End With
ReDim Preserve Lbl(i)
Set Lbl(i) = Controls.Add("VB.Label", "lbl" & i)
With Lbl(i)
.Visible = True
.Width = 1500
.Height = 300
.Caption = "Patrón " & i
.Top = 10 + i * 320
.Left = 800
End With
ReDim Preserve Lbl2(i)
Set Lbl2(i) = Controls.Add("VB.Label", "Lbl2" & i)
With Lbl2(i)
.Visible = True
.Width = 1500
.Height = 300
.Caption = "Instrumento " & i
.Top = 10 + i * 320
.Left = 3400
End With
Combo1.Enabled = False
Next
End Sub

Este es la imágenes de como se ve

http://www.publiwebcr.com/img.jpg