Sub txtFilter_TextChanged (Old As String, New As String)
TextChangedIndex= TextChangedIndex + 1
Dim myIndex As Int = TextChangedIndex
Sleep(1000) 'change duration as needed
If myIndex <> TextChangedIndex Then Return
Log("Do whatever you like here...")
End Sub