Visual Basic - COMO REVISAR LA ORTOGRAFIA

Tengo este codigo que he encontrado para revisar la ortografía:
Private Sub Command1_Click()
Dim speller As Object
Dim txt As String
Dim new_txt As String
Dim pos As Integer

On Error GoTo OpenError
Set speller = CreateObject("Word.Basic")
On Error GoTo 0

speller.FileNew
speller.Insert Text1.Text
speller.ToolsSpelling 'Cuadro de ortografía
speller.EditSelectAll
txt = speller.Selection()
speller.FileExit 2

If Right$(txt, 1) = vbCr Then _
txt = Left$(txt, Len(txt) - 1) 'Carácter de retorno de carro
new_txt = ""
pos = InStr(txt, vbCr) 'Primera posición del carácter retorno de carro
Do While pos > 0
new_txt = new_txt & Left$(txt, pos - 1) & vbCrLf 'Retorno carro y avance línea
txt = Right$(txt, Len(txt) - pos) 'Siguiente línea
pos = InStr(txt, vbCr)
Loop
new_txt = new_txt & txt

Text1.Text = new_txt
Exit Sub

OpenError:
MsgBox "Error" & Str$(Error.Number) & _
" opening Word." & vbCrLf & _
Error.Description
End Sub

SI PODEIS EXPLICARME QUE HACE... NECESITO HACERLO EN UN EDITOR CON UN RICHTEXTBOX.
AGRADECERÉ TODO LO QUE ME PUEDA AYUDAR... GRACIAS DE ANTEMANO

Hola
Todo lo que hace ese codigo que tiene es:
Abre el Microsoft Word
Crea un documento nuevo
Copia la informacion que tienes en el text1 y lo coloca en el documento que acaba de crear.
Luego carga el corrector de ortografia de Word y analiza el tecto que acaba dee colocar en el documento una ves revisa ortografia toma el texto corregido y lo coloca en el text1 de tu aplicacion.

Espero te haya aclarado tus dudas
Chao

Muchas gracias Cristian!!! Sabes si eso mismo se puede hacer en un richtextbox en vez de text1??? Y se podría hacer de otra forma que no fuese utilizando el word??? Para las prácticas me piden que sea sin él. Otra cosita, me sale una licencia de microsoft al ejecutarlo en mi programa, puede ser porque no lo tenga instalado del todo???
GRACIAS DE ANTEMANO.