Antal ord i tekst

Jeg har tidligere brugt denne følgende kode til at tælle antal ord i en tekst. Men nu er jeg i det problem at jeg skal tælle, hvor mange ord i en tekst der har over seks bogstaver. Nogen der hved hvordan man gør det?

Private Function WordCount(text As Variant) As Long


    On Error Resume Next
    Dim counter As Long
    Dim words As Long
    Dim sum As Long
    Dim conmsg As String
    Const conbtns As Integer = vbOKOnly + vbInformation _
    + vbDefaultButton1 + vbApplicationModal
    counter = 0
    words = 0
    sum = 0
    text = Trim(text)
   
    For counter = 1 To Len(text)
        If Asc(Mid(text, counter, 1)) > 32 Then
            If Err.Number <> 5 Then
                sum = sum + 1
            Else
                Err.Clear
            End If
        End If
       
    Next
    counter = 0
    If sum > 0 Then
        For counter = 1 To Len(text)
            If counter + 1 > Len(text) Then
                words = words + 1
            Else
                If Asc(Mid(text, counter, 1)) > 32 And _
                Asc(Mid(text, counter + 1, 1)) = 13 Then
                words = words + 1
            End If
            If Asc(Mid(text, counter, 1)) > 32 And _
            Asc(Mid(text, counter + 1, 1)) = 32 Then
            words = words + 1
        End If
        Err.Clear
    End If
Next
End If
WordCount = words

End Function