Private Sub Form_KeyPress(KeyAscii As Integer)

         If KeyAscii = 13 Then
                If TypeOf ActiveControl Is TextBox Then
                    SendKeys "{Tab}"
                End If
        
        End If

End Sub