[Resolvido]permitir apenas um espaço em textbox

Bom dia amigos! Por favor, alguém saberia me informar como permitir apenas um espaço na caixa de texto? O que eu quero é que após o usuário clicar na tecla de espaço uma vez, ele "não consiga" dar mais espaços. Estou usando o código abaixo:

Código:

Private Sub T1_KeyPress(KeyAscii As Integer)
If Me.q1 = 1 Then
Select Case KeyAscii
Case 8 'Backspace (seta de apagar)
Case 48 To 57 'Números de 0 a 9
Case 44 'Vírgula
If InStr(T1.Text, ",") Then  'Se o campo já tiver 1 vírgula então ele não adiciona
KeyAscii = 0 'Não adiciona a vírgula caso ja tenha
Else
KeyAscii = 44 'Adiciona uma vírgula
End If
Case Else
KeyAscii = 0 'Não deixa nenhuma outra caractere ser escrito
End Select
Else
If Me.q1 = 2 Then
Select Case KeyAscii
Case 8 'Backspace (seta de apagar)
Case 48 To 57 'Números de 0 a 9
Case 47 'barra
If InStr(T1.Text, "/") Then  'Se o campo já tiver 1 barra então ele não adiciona
KeyAscii = 0 'Não adiciona a barra caso ja tenha
Else
KeyAscii = 47 'Adiciona uma barra
End If
[b]Case 32 'espaço
If InStr(T1.Text, "_") Then  'Se o campo já tiver 1 espaço então ele não adiciona
KeyAscii = 0 'Não adiciona espaço caso ja tenha
Else
KeyAscii = 32
End If[/b]
Case Else
KeyAscii = 0 'Não deixa nenhuma outra caractere ser escrito
End Select
End If
End If
End Sub

Desde já agradeço imensamente a ajuda dos colegas!!

No evento ao PRESSIONAR tecla dessa caixa de texto coloque: (No meu caso o nome dela se chama txt1Espaco)

Código:

Private Sub txt1Espaco_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 32 'Espaço
If InStr(Me.txt1Espaco.Text, " ") Then
KeyAscii = 0
MsgBox "Somente um espaço"
End If
End Select

End Sub


Boa tarde Fabio! Mais uma vez, muito obrigado!! Valeu mesmo a ajuda!

Abraço!

Grato pelo retorno amigo e ate a proxima se Deus quiser...