Visual Basic - textbox

Como puedo hacer para que un textbox solo acepte un solo espacio entre palabras y no mas de uno espacio entre ellas
Gracias

En el evento Keypress del textbox

If Text1 = "" Then
Exit Sub
End If
If Len(Text1) > 2 Then
If Text1.SelStart <> 0 Then
If (Mid(Text1, Text1.SelStart, 1) = " " Or Mid(Text1, Text1.SelStart + 1, 1) = " ") And KeyAscii = 32 Then
KeyAscii = 0
End If
End If
End If
If Text1.SelStart = 0 And KeyAscii = 32 Then
KeyAscii = 0
End If