Dim X As Object
Set X = CreateObject("Word.Application")
X.Visible = False    'Word na pozadie
X.Documents.Add      'otvorenie nového dokumentu
X.Selection.Text = Text1.Text    'kopírovanie textu na kontrolu
X.ActiveDocument.CheckSpelling   'spustenie kontroly pravopisu
Text1.Text = X.Selection.Text    'spätné kopírovanie výsledkov
X.Quit
Set X = Nothing    'uvoľnenie objektovej premennej