Private Sub cmdSpell_Click()
'txtspell Holds String You Want Checked
Set XlSpell = CreateObject("Excel.sheet")
Set XlSpell = XlSpell.application.activeworkbook.activesheet
XlSpell.Range("A1").Value = txtspell.Text
XlSpell.CheckSpelling
txtspell.Text = XlSpell.Range("A1").Value
Set XlSpell = Nothing
AppActivate Caption
End Sub