Private Sub Rsvnombre_KeyPress(KeyAscii As Integer)
Como se haba mencionado antes, este cdigo hace que si se oprime la
tecla enter pasa el enfoque al siguiente control
If KeyAscii = 13 Then
   SendKeys Chr(9)
End If
End Sub
