Assuming we are talking forms textboxes

For i = 1 To Len(seq_a)
Me.Controls("a" & i).Text = Mid(seq_a, i, 1)
next i


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"rsphorler" wrote in message
...
Hi

I am trying to split some text from one textbox in to multiple text
boxes. Basically in the first text box (seq_a) the user will paste a
seqeunce and this will then be split into individual bases with one
per text box (the text boxes are named a1-a20). The problem is how to
refer to the individual text boxes, at the moment the only way i can
see to do this is individually refer to the boxes:

a1 = Mid(seq_a, 1, 1)
a2 = Mid(seq_a, 2, 1)
a3 = Mid(seq_a, 3, 1)
.....

But there must be a way to do so dynamically something like:

For i = 1 To Len(seq_a)
"a" & i = Mid(seq_a, i, 1)
next i

but "a" & i does not work and I am not sure if one can actually do
this step dynamically

Richard




Next i