Errinho na função

Bom dia ae pessoal....é o seguinte, desenvolvi uma função que verifica a validade do nome, ou seja, a pessoa tem que ter digitado pelo meno nome e um sobrenome com no minimo 2 caracteres

So que está dando erro... ele sempre retorna False...alguem pode me ajudar??? value ????

ASP

[*]<%

[*]Function verificaNome(strNome)

[*]

[*]Dim i

[*]Dim tamanhoNome

[*]Dim aposEspaco

[*]

[*]tamanhoNome = len(strNome)

[*]espaco = 0

[*]verificaNome = "False"

[*]

[*] if tamanhoNome < 3 Then Exit Function

[*]

[*] For i = 1 to tamanhoNome

[*] If espaco < 1 Then

[*] If mid(strNome,i,1) = " " Then

[*] espaco = i + 1

[*] Exit For

[*] End If

[*] End If

[*] Next

[*]

[*]If espaco = 0 Then Exit Function

[*]aposEspaco = mid(strNome,espaco,tamanhoNome)

[*]If len(aposEspaco) > 1 Then

[*]  verifcaNome = "True"

[*]End If

[*]

[*]

[*]

[*]End Function

[*]

[*]

[*]Response.write("<form action='nome.asp?busca=1' method='POST'>")

 

[*]Response.write("<input type='text' name='cNome'>")

 

[*]Response.write("<input type='submit' name='cEnvia'>")

[*]

[*]If Request("busca") = 1 then

[*] varNome = Request.Form("cNome")

[*] if verificaNome(varNome) = "True" Then

[*] Response.Write ("Nome Ok")

[*] ElseiF verificaNome(varNome) = "False" then

[*] Response.Write ("Nome Incorreto")

[*] Else

[*] Response.Write ("Nada")

[*] End If

[*]End IF

[*]%>