VBA GoTo应用程序-如何设置延迟

Question

我有一个搜索文本框，该文本框可帮助我查找与我在框中键入的字母相匹配的文本的单元格，该方法可以延迟此搜索事件，因为我基本上只能键入一个字母，有时我希望能够在搜索开始之前在字符串中再输入几个字母...

 Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal 
 Shift As Integer)

     On Error Resume Next
     Application.GoTo Range("A" & 
     Application.WorksheetFunction.Match(TextBox1.Value, Range("B2:B5000"), 
     1) + 1), True
     On Error GoTo 0

 End Sub