It beeps

When I use .SetFocus on a textbox or commandbutton, then computer beeps, like if you go Beep. This is the code for one of the times:

Code:

---

Private Sub Text1_KeyUp()
  If KeyCode=13 Then
      Text2.SetFocus
      Text2.SelStart=0
      Text2.SelLength=Len(Text2.Text)
        KeyCode=0
  End If
End Sub

---

This is it, and now it beeps.

Try using the KeyPress event.