Es un poco extraño tu problema, ya que con una matriz de textos, la cosa seria super sencilla, pero veo que aun hay gente que le gusta complicarse la vida. Pero bueno, eso es materia de otro foro.
Veamos si te sirve este codigo:
Pon en la primera columna 6 textbox llamados: text1,text2, ... , text6
Pon en la segunda columna 6 textbox llamados :txtdatos1,txtdatos2,... txtdatos6
Y usa el siguiente codigo para hacer lo que requieres:
i = 0
If Len(txtDatos1.Text) > 0 Then
i = i + 1
Text1.Text = i
Else
Text1.Text = ""
End If
If Len(txtDatos2.Text) > 0 Then
i = i + 1
Text2.Text = i
Else
Text2.Text = ""
End If
If Len(txtDatos3.Text) > 0 Then
i = i + 1
Text3.Text = i
Else
Text3.Text = ""
End If
If Len(txtDatos4.Text) > 0 Then
i = i + 1
Text4.Text = i
Else
Text4.Text = ""
End If
If Len(txtDatos5.Text) > 0 Then
i = i + 1
Text5.Text = i
Else
Text5.Text = ""
End If
If Len(txtDatos6.Text) > 0 Then
i = i + 1
Text6.Text = i
Else
Text6.Text = ""
End If
