Private Sub TextBox1_Change()
qq
End Sub

Private Sub qq()
    MsgBox "QQ"
End Sub
Private Sub TextBox1_Change()
    qq
End Sub

Private Sub TextBox1_Change()
Application.Wait Now + TimeSerial(0, 0, 1)
qq
End Sub

Option Explicit
Const TimePause = 20 * (1 / 86400 / 10)
        
Dim vbmdl As Object 'VBComponent
Dim subName As String
         
Private Sub TextBox1_Change()
    Application.OnTime Now + TimePause, subName
End Sub
         
Public Sub qq()
    MsgBox "QQ"
End Sub
         
Private Sub UserForm_Initialize()
    Dim bSaved As Boolean
    bSaved = ThisWorkbook.Saved
         
    subName = "temp_" & Format(Now, "YYMMDD_hhmmss")
    Set vbmdl = ThisWorkbook.VBProject.VBComponents.Add(1)
         
    vbmdl.CodeModule.InsertLines 10, _
    vbCrLf & "Sub " & subName & "()" & _
    vbCrLf & "    UserForm1.qq" & _
    vbCrLf & "End Sub"
         
    ThisWorkbook.Saved = bSaved
End Sub
         
Private Sub UserForm_Terminate()
    Dim bSaved As Boolean
    bSaved = ThisWorkbook.Saved
     
    vbmdl.Collection.Remove vbmdl
            
    ThisWorkbook.Saved = bSaved
End Sub

'форма
Const TimePause = 20 * (1 / 86400 / 10)
Sub qq()
    MsgBox "QQ"
End Sub
Private Sub TextBox1_Change()
'    Application.Run "ww"
        Application.OnTime Now + TimePause, "ww"
End Sub
'стандартный модуль
Sub ww()
    UserForm1.qq
End Sub

Const TimePause1 = 20 * (1 / 86400 / 10)
Private Sub qqq()
    MsgBox "QQ"
End Sub
Private Sub TextBo()
Application.Run "ThisWorkbook.qqq"
'    Application.OnTime Now + TimePause1, "ThisWorkbook.qqq"
End Sub

'ВАЖНО: для успешности всего процесса следует включить "галочку" в меню Excel:
'Разработчик / Безопасность макросов/ Параметры макросов / опция "Доверять доступ к объкетной модели VBA" - устанавливаем!

' модуль
public gfrmForm as Userform1

sub Launch()
   set gfrmForm = New Userform1
   gfrmForm.show
end sub

' форма
public Sub qq()
    MsgBox "QQ"
End Sub

Application.Run "gfrmForm.qq"

Public Type ffff
    ff As Boolean
    dd As Integer    
End Type

Private Sub TextBox1_Change()
    Starts = Timer
    Do While Timer < Starts + 2
        DoEvents
    Loop
    MsgBox (TextBox1.Text)
End Sub

Option Explicit
Const TimePause = 20 * (1 / 86400 / 10)
        
Dim vbmdl As Object 'VBComponent
Dim subName As String
Dim regKey As String
Dim regVal As Integer
             
Private Sub TextBox1_Change()
    Application.OnTime Now + TimePause, subName
End Sub
             
Public Sub qq()
    MsgBox "QQ"
End Sub
             
Private Sub UserForm_Initialize()
    Dim bSaved As Boolean
    bSaved = ThisWorkbook.Saved
        
    'проверяем чекбокс "Доверять доступ к объкетной модели VBA"
    On Error Resume Next
    regVal = ThisWorkbook.VBProject.VBComponents.Count
    If Err Then
        Err.Clear
        regVal = 0 'чекбокс изначально сброшен
    Else
        regVal = 1 'чекбокс изначально установлен
    End If
    On Error GoTo 0
        
    'ветка Реестра, отвечающая за чекбокс "Доверять доступ"
    regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & _
                Application.Version & "\Excel\Security\AccessVBOM"
            
    'если чекбокс "Доверять" при открытии формы изначально сброшен,
    'то устанавливаем его
    If regVal = 0 Then
        CreateObject("WScript.Shell").RegWrite regKey, 1, "REG_DWORD"
        'т.е. изменяем значение в Реестре,
        'но это изменение Excel почему-то немедленно не видит,
        'как бы нуждаясь в рефреше, поэтому -
        'принудительно жмем кнопку ОК в "Центре управления безопасности",
        'причем галка там уже стоит (за счёт операции с Реестром),
        'но как бы еще не имеет эффекта - поможем ей! Энтером по кнопке OK
        SendKeys "{ENTER}" 'посылая упреждающий Энтер в открывающееся следом окно
        Application.CommandBars.ExecuteMso "MacroSecurity"
    End If
        
    subName = "temp_" & Format(Now, "YYMMDD_hhmmss")
    Set vbmdl = ThisWorkbook.VBProject.VBComponents.Add(1)
             
    vbmdl.CodeModule.InsertLines 10, _
    vbCrLf & "Sub " & subName & "()" & _
    vbCrLf & "    UserForm1.qq" & _
    vbCrLf & "End Sub"
             
    ThisWorkbook.Saved = bSaved
End Sub
             
Private Sub UserForm_Terminate()
    Dim bSaved As Boolean
    bSaved = ThisWorkbook.Saved
         
    vbmdl.Collection.Remove vbmdl
        
    'снимаем галку "Доверять", если она была снята в начале
    'т.е. подчищаем за собой, восстанавливая начальное состояние
    If regVal = 0 Then
        CreateObject("WScript.Shell").RegWrite regKey, 0, "REG_DWORD"
        SendKeys "{ENTER}"
        Application.CommandBars.ExecuteMso "MacroSecurity"
    End If
                
    ThisWorkbook.Saved = bSaved
End Sub

    If regVal = 0 Then
        CreateObject("WScript.Shell").RegWrite regKey, 0, "REG_DWORD"
        SendKeys "{ENTER}"
        Application.CommandBars.ExecuteMso "MacroSecurity"
    End If