It beeps

[J Lindroos]

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:

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.