I could really use some help creating a LIX-counter in vba. It's basically a program that reads a text, and then tell you how many words there are, how many sentences and how many words that are long(more than six characters). I've already got the first two down, and i just need help with the last one. If anyone could be so kind as to help me with that (counting the long words) I would be forever grateful. Here is my code so far :

Option Compare Database Option Explicit

Private Sub Command0_Click()

Dim sWords() As String
Dim i As Integer, j As Integer
Dim numsentence As Integer
Dim NumChars As String
Dim moreThanSix

If IsNull(txtInput) Then
    MsgBox ("enter text in the left textbox for analyzing.")
    Exit Sub
End If

sWords = Split(txtInput, " ")
numsentence = 0
If Len(txtInput) = 0 Then
    Exit Sub
Else
    numsentence = 1
End If

For i = 1 To Len(txtInput)
    If Mid(txtInput, i, 2) = ". " Or Mid(txtInput, i, 2) = "! " Or Mid(txtInput, i, 2) = "? " Or _
    Mid(txtInput, i, 2) = "." & Chr(13) Or Mid(txtInput, i, 2) = "!" & Chr(13) Or Mid(txtInput, i, 2) = "?" & Chr(13) Then
numsentence = numsentence   1
    End If
Next






txtOutput = "number of words are(M): " & UBound(sWords)   1 & vbNewLine & "Number of sentences is(O): " & numsentence & vbNewLine & _
"words with more than six chars(L): " & NumChars

End Sub