If Me.UltraSpellChecker1.CheckText(Me.RichTextBox1.Text).Count = 0 Then
MessageBox.Show("No Spelling Errors")
Else
If Me.UltraSpellChecker1.CheckText(Me.RichTextBox1.Text).Count > 0 Then
MessageBox.Show(Me.UltraSpellChecker1.CheckText(Me.RichTextBox1.Text).Count.ToString() + _
" Spelling Errors Found!")
End If
End If