Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtn3.SetFocus
End Sub