Visual Basic 6 - piccolo problema! vorrei popolare delle texbox da un elenco ma non capisco dove sbaglio

ho 3 textbox + 3 text box rispettivamente
tvend1 e tprz1
tvend2 e tprz2
tvend3 e tprz3


alal pressione del comando ho inserito il seguente codice: (Ma mi popola solo la 1 e la 2 la 3 mai dove sbaglio?

Grazie Mille


Tvend1.SetFocus

If Tvend1.Text = "" Then
Me.Tvend1.Value = Me.Elenco18.Column(1)
Me.TPrz1.Value = Me.Elenco18.Column(3)

Else


If Tvend1.Text <> "" Then
Me.TVend2.Value = Me.Elenco18.Column(1)
Me.TPrz2.Value = Me.Elenco18.Column(3)

Else


If TVend2.Text <> "" Then
Me.Tvend3.Value = Me.Elenco18.Column(1)
Me.TPrz3.Value = Me.Elenco18.Column(3)


Else


End If
End If
End If

beh semplice
If Tvend1.Text = "" Then
Me.Tvend1.Value = Me.Elenco18.Column(1)
Me.TPrz1.Value = Me.Elenco18.Column(3)

Else


If Tvend1.Text <> "" Then
Me.TVend2.Value = Me.Elenco18.Column(1)
Me.TPrz2.Value = Me.Elenco18.Column(3)

Else


If TVend2.Text <> "" Then
Me.Tvend3.Value = Me.Elenco18.Column(1)
Me.TPrz3.Value = Me.Elenco18.Column(3)


Else


End If
End If
End If


se entri nella condizione del primo if non entrerai mai negli altri in quanto entrerai solo se non è verificata la prima condizione


per risolvere devi separare gli if

esempio
If Tvend1.Text = "" Then
Me.Tvend1.Value = Me.Elenco18.Column(1)
Me.TPrz1.Value = Me.Elenco18.Column(3)

Else



end if

If TVend2.Text <> "" Then
Me.Tvend3.Value = Me.Elenco18.Column(1)
Me.TPrz3.Value = Me.Elenco18.Column(3)
Else


End If


ps: altro consiglio riguardati le condizioni degli if...
se scritti così i primi due si equivalgono cioè son gli stessi

If Tvend1.Text = "" Then
Me.Tvend1.Value = Me.Elenco18.Column(1)
Me.TPrz1.Value = Me.Elenco18.Column(3)

Else
If Tvend1.Text <> "" Then



non so se è un errore di copia incolla