Verificando o tamnho da palavra.

Olá pessoal estou precisando fazer uma verificação mas estou me enrolando no codigo.tenho o seguinte codigo que pega o texto vindo de um textarea e faz a contagem das palavras.

<%dim strTroca, strTexto, strArray, strNumstrTexto = Request.queryString("teste")strTroca = Replace((strTexto), ".", " ")strArray = Split(Trim(strTroca), " ")strNum = UBound(strArray)+1Response.Write "neste texto existe " & UBound(strArray)+1 & " palavras"%>

Porem preciso contar apenas palavras que tiverem mais que 3 caracteres.Alguem pode me dar uma sugestão de como fazer isso ?Obrigado