Visual Basic - Quitar espacios en texbox

Hola a todos,
ME podrían colaborar diciendome como hago para no permitir espacios cuando un usuario escriba en un control texbox, espero sus comentarios.
Gracias

deseas quitar espacios al inicio y al final del textbox utiliza la funcion TRIM
al inicio del textbox la funcion LTRIM o al final RTRIM

hola, deseo quitar los espacios en cualquier posición, en la mitad de una palabra, al inicio, al final, donde sea, la cuestión es que la palabra no puede llevar espacios en blanco.

Prueba con esto al momento de teclearlos es esto,

Private Sub Text1_Change()
Text1.Text = Trim(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End Sub

ya que si mandas un texto alli esta funcion...

Function QuitaEspacios(Palabra As String)
Texto = ""
For x = 1 To Len(Palabra)
Texto = Texto + Trim(Mid(Palabra, x, 1))
Next
QuitaEspacios = Texto
End Function