Visual Basic - espacios dentro de cadenas

Tengo un TextBox donde deben escribirse nombre y apellido para buscarlos en una planilla Excel ( Es un Form en VBA).
Algunas veces al operador se le escapan dos espacios entre nombre y apellido, en vez de uno como debe ser, y por supuesto el programa no encuentra al candidato buscado, aunque esté (escrito con un sólo espacio intermedio).
No encuentro la manera de detectar dos espacios intermedios seguidos.
Gracias por la ayuda que puedan darme

Fijate con la función Replace:

Text1.Text=Replace(Text1.Text," "," ")

En: http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctReplace.asp tienes la documentación.

Funciona!!!
Muchas gracias, Cecilia.