Bueno ssegun el mail que me mandaste, no tengo idea si en VB existe la función Instr, en VbScript si así que quedaría así:
If Instr(cadena,chr(32)) Then
'Mensaje de error por q hay un espacion
Else
'Todo bien
End If
chr(32) corresponde al valor ASCII de un espacio en blanco.
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>