Visual Basic - Corrector

Buscando he encontrado el suiente codigo para corregir la ortaografia pero me encuentro que si cancelo la correccion se borra el texto del cuadro.
Alguien sabe donde esta el error?.

Private Sub Command1_Click()
Dim XWord As Object
Set XWord = CreateObject("Word.Application")
XWord.Visible = False
XWord.Documents.Add
XWord.Selection.Text = Text1.Text
XWord.ActiveDocument.CheckSpelling
Text1.Text = XWord.Selection.Text
XWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
XWord.Quit
Set XWord = Nothing
MsgBox ("Ha finalizado la corrección ortográfica"), vbInformation
End Sub