[Resolvido]retirando pontos e espaços no início da digitação

Boa tarde pessoal.

Tenho um formulário e coloquei no meu campo um código para retirar espaço.
Porém gostaria de saber como poderia incluir nesse código a régra para que nunca aceite espaço no início da digitação.

meu código

Private Sub Nome_KeyPress(KeyAscii As Integer)

Dim ComAcentos(45) As String
Dim SemAcentos(45) As String
LetrasComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
LetrasSemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"
'Carga da Matriz
For i = 0 To 45
ComAcentos(i) = Mid(LetrasComAcentos, i + 1, 1)
SemAcentos(i) = UCase$(Mid(LetrasSemAcentos, i + 1, 1))
Next i
'Substitui os acentos
For i = 0 To 45
If KeyAscii = Asc(ComAcentos(i)) Then KeyAscii = Asc(SemAcentos(i))
Next i

If KeyAscii = Asc("´") Or KeyAscii = Asc("`") Or KeyAscii = Asc("^") Or KeyAscii = Asc("~") Then
'KeyAscii = 0
KeyAscii = Asc(UCase(SemAcentos(i)))
End If
End Sub

Agradeço pela ajuda pessoal.

O seu formulario tem de estar com Visualizar teclas = Sim

Private Sub SeuCampo_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 32 Then KeyCode = 0
End Sub

Não deu certo.

Como não ?

Deu algum erro ?

Só agora entendi que pretende apenas no inicio da digitação;

teste;

Private Sub SeuCampo_KeyDown(KeyCode As Integer, Shift As Integer)
    If Left(Me.SeuCampo.Text, 1) = " " Then
    Me.SeuCampo = Replace(Left(Me.SeuCampo.Text, 1), "_", "")
    End If
End Sub

Muito obrigado deu certo.