Ayuda con TabStrip

Meifer
21 de Junio del 2004
Hola chicos necesito por favor me ayuden, tengo este codigo pero s qda en un bucle y nose por q, si le coloco "exit sub" pero en ejecucion no llega a esa linea. llega hasta la linea anterior(Q es donde activo la pestaña del tabstrip) y regresa al click ¿ Q hago?

Private Sub TabStrip1_Click()
'Cuando se pulsa en el tabstrip...
Dim i&

For i = 0 To 8
If Me.Txt1(i) = "" Then
MsgBox "Faltan Datos"
TabStrip1.Tabs(1).Selected = True
Exit Sub
End If
Next

i = TabStrip1.SelectedItem.Index
'Mostrar el contenedor que corresponda
Frame1(i - 1).ZOrder
End Sub

Gracias de antemano