Con expresiones regulares puedes controlar eso.
<%
Dim re, patron, cadena
patron=".{4,8}$"
cadena="Hola amigooooooo"
set re = New RegExp
re.Pattern = patron
re.IgnoreCase = True
if re.Test(cadena) then
Response.Write("<p>La cadena coincide con el patrón.")
else
Response.Write("<p>La cadena no coincide con el patrón.")
end if
set re = nothing
%>
Fijate en el patron
patron=".{4,8}$"
eso es que puede ser cualquier caracter como minimo 4 veces y como maximo 8.
Alomejor te interesaria que solo fuese letras y numeros, pues seria asi:
patron="[a-zA-Z0-9]{4,8}$"
De todas formas en internet tienes muxa info sobre esto. Googlea un poco cuando te surjan este tipo de dudas.