Private Sub Text1_Change()
If Text1.Text <> "" Then
Text2.SetFocus
Else
Text1.SetFocus
End If
End Sub
Private Sub Text2_Change()
If Text2.Text <> "" Then
Text1.SetFocus
Else
Text2.SetFocus
End If
End Sub
if text1.value<>"" then
text2.setfocus
esle
text1.setfocus
end if