Запуск формы отдельным потоком

App.OleServerBusyRaiseError = False
App.OleRequestPendingTimeout = 1
App.OleRequestPendingMsgText = "Wait for completion handling"

Private Sub Command1_Click()
 
CommonDialog1.Filter = "Microsoft Word | *.doc" 'ôîðìàòû ôàéëîâ, ôèëüòð
CommonDialog1.ShowOpen 'Îòêðûâàåì îêíî ïîèñêà ôàéëîâ
If CommonDialog1.FileName = "" Then 'Ïðîâåðÿåì èìÿ ôàéëà,
MsgBox "Âûáåðèòå ôàéë !", vbOKOnly + vbCritical '?????????, ??? ???? ?? ??????,
Exit Sub
InputFileTxt.Text = CommonDialog1.FileName 'Îêíî ââîäà òåêñòà TextBox ââîäèì èìÿ ôàéëà âðó÷íóþ
End If
 
Set WordApp = New Word.Application
 
'?????????? ????????? Word-a ?? True - ???????,
'?? False - ?? ??????? (???????? ?????? ????)
WordApp.Visible = False
'??????? ????? ???????? ? Word-e
 
Set DocWord = WordApp.Documents.Add(CommonDialog1.FileName)
 
DocWord.Activate
 Application.ScreenUpdating = False
  ActiveDocument.Windows(1).View.Type = wdNormalView
  Application.Options.CheckGrammarAsYouType = False
  Application.Options.CheckGrammarWithSpelling = False
  Application.Options.ContextualSpeller = False
  Application.Options.CheckSpellingAsYouType = False
  Application.Options.ShowReadabilityStatistics = False
    Dim fld As Field, i As Long
 
    
    '1. ??????? ????? ?????, ???? ????? ???? ?? ????????? ??? ?????-?? ????? ?????.
    ActiveWindow.View.ShowFieldCodes = False
    
    For i = ActiveDocument.Fields.Count To 1 Step -1
    
        '2. ???????????? ???????????? ????? ????.
        Set fld = ActiveDocument.Fields(i)
        
        ' ???? ??? eq-????.
        If fld.Type = wdFieldFormula Then
            '3. ????????? ???? (? ??????? Range ?? ?????????? ????????).
            fld.Select
            '4. ??????????? ????.
            Selection.Copy
            '5. ??????? ???? ? ???? ??????.
            Selection.PasteAndFormat (wdFormatPlainText)
        End If
        
    Next i
    
    '5. ?????????, ????? ???? ?????, ??? ?????? ???????? ??????.
    Application.ScreenUpdating = True
    Let ProgressBar1.Value = 100
Let Label9.Caption = ProgressBar1.Value & "%"
Let Label10.Caption = "Âàø ôàéë ãîòîâ, ïðîâåðüòå ñîäåðæèìîå äîêóìåíòà!!!"
  
DocWord.Save
Set DocWord = Nothing
WordApp.Quit True
Set WordApp = Nothing
End
    End Sub