VB Code:
  1. Public Sub SpellCheck(ByRef TextObj As RichTextBox)

  2. Dim objSpellCheck    As Object

  3. Dim tmpClipBoardText As String

  4.     If TextObj.Text = vbNullString Then Exit Sub

  5.     Screen.MousePointer = 13

  6.     tmpClipBoardText = Clipboard.GetText

  7.     Set objSpellCheck = CreateObject("Word.Application")

  8.     objSpellCheck.Visible = False

  9.     objSpellCheck.Documents.Add

  10.     Clipboard.Clear

  11.     Clipboard.SetText TextObj.Text

  12.     With objSpellCheck

  13.         .Selection.Paste

  14.         .ActiveDocument.CheckSpelling

  15.         .Visible = False

  16.         .ActiveDocument.Select

  17.         .Selection.Cut

  18.     End With

  19.     TextObj.Text = Clipboard.GetText

  20.     objSpellCheck.ActiveDocument.Close SaveChanges:=0

  21.     objSpellCheck.Quit

  22.     Set objSpellCheck = Nothing

  23.     Clipboard.SetText tmpClipBoardText

  24.     Screen.MousePointer = 0

  25. Exit Sub

  26. End Sub


When using this function for a textbox ---------->
VB Code:
  1. Public Sub SpellCheck(ByRef TextObj As TextBox)