Concatinate Control Name 1

[aw23]

I have 5 lbls, lbl1, lbl2, lbl3, etc.
I have a string with 5 letters. I want to put one letter in each label. Is it possible to concatinate the name so that I don't have to go through each label? Here is my code which does not work:

While i < Len(strName)
    i = i + 1
    num = Mid(strName, i, 1)
    lbl = "lbl" & i
    Call FillID(lbl, num)
Wend
End Sub
Private Sub FillID(lbl As Label, idNum)
lbl.Caption = idNum
End Sub

I tried it a few different ways but all produced errors.
Any suggestions?
Thanks!

 

[PHV]

If the Labels and the code are in a UserForm:
Private Sub FillID(lbl As String, idNum)
Me.Controls(lbl).Caption = idNum
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[RoyVidar]

Which application is this?

I suppose both Word/Excel Userforms and Access forms would accept something like this:

[tt]Call FillID(me.controls(lbl), num)[/tt]

Roy-Vidar