Read all the textboxes on a form into an array

Is there an nice short way of reading all of the textbox values on a form into an array? What I am hoping for is something like:

intCtr = 1
For Each each txtbx in TextboxCollection
intCtr = intCtr + 1
txtboxArray(intCtr) = txtbx.text
Next

?

Thank-you!