VB Code:
  1. Dim XlSpell As Object

  2.  
  3. Private Sub cmdSpell_Click()

  4.  
  5.     ' txtspell Holds String You Want Checked

  6.  
  7.     Set XlSpell = CreateObject("Excel.sheet")

  8.  
  9.     Set XlSpell = XlSpell.application.activeworkbook.activesheet

  10.  
  11.     XlSpell.Range("A1").Value = txtspell.Text

  12.  
  13.     XlSpell.CheckSpelling

  14.  
  15.     txtspell.Text = XlSpell.Range("A1").Value

  16.  
  17.     Set XlSpell = Nothing

  18.  
  19.     AppActivate Caption

  20.  
  21. End Sub

Add Reference to Excel Library...