Espaço no nome

Gostaria de algum modo impedir que os jogadores colocassem espaço nos nomes...
Já tentei usando o código abaixo na Sub HandleAddChar mas nao adiantou...

Código:

If InStr(FindChar(Name), " ") Then
    Exit Sub
End If