[RESOLVED] textbox space

I have textbox. How to pop up messagebox if the textbox contains empty space between text?for example "A A" or "A A A A A"

Code:

---

If Instr(Text1.Text, " ") > 0 Then
  MsgBox "The textbox contains spaces!"
End If

---