Из String в Object

Всем привет! Вообщем возникла такая проблема:
Создаётся Юзерформ с несколькими текстбоксами на ней. В цикле изменяется имя текстбокса, и потом совершается какое-то действие над текстбоксом(как с объектом)!!
Упрощенный код примерно такой:

Dim nI, sS
Dim oZn As Object
For nI = 1 To 6
sS = Join(Array("txtRT", nI), "")
Set oZn = sS 'Вот здесь проблема
oZn.Value = Worksheets("ИсходныеДанные").Cells(nI + 4, 2).Value
Next

Понятно, что он присваевает объекту NOTHING, но как сделать по-другому!
(foreach не подойдет)