Visual Basic - Como hago para que un button no acepte espacios en blanco del textbox?

Quiero el button no acepte espacios en blanco del textbox...

Usa la funcion Instr
if instr(text1," ")>0 then
msgbox("Hay espacios en Text1")
exit sub
endif

No recuerdo si se puede hacer asi, por lo que puedes probar

var=instr(text1," ")
if var>0 then
msgbox("Hay espacios en Text1")
exit sub
endif