استفاده از حلقه for ....next در جايگزيني حروف بجاي ارقام

[abas1388]

با سلام
اگر "text1="QWSEDFRTGVBM و text2=25136 باشد و ( i= 1 to len(text2، ميخواهم از طريق حلقه for ....next يكي از حروف تكست 1 به مقدار هركدام از ارقام عددتكست2 انتخاب و در text3 قرار بگيرد .
بطوريكه :
با رقم 2 حرف W
با رقم5 حرف D
با رقم 1 حرف Q
با رقم 3 حرف S
با رقم 6 حرف F
انتخاب شود وtext3=WDQSF بشود.
انشاءااله توانسته باشم منظورم را بدرستي بيان كنم.
با تشكر فراوان

[mpmsoft]

For i = 1 To Len(Text2.Text)
Text3.Text = Text3.Text & Mid(Text1.Text,Mid(Text2.Text,i,1),1)
Next

[abas1388]

ضمن تشكر از جناب آقاي mpmsoft بخاطر جواب صحيح و فوريشان
در همين رابطه سؤال ديگري برايم مطرح است و آن اينكه اگر تكست 2 تركيبي از اعداد و حروف باشد مثلاً text2=Q7RG51F4 و اين دفعه در تكست شماره3 ، حروف تكست 2 قرار بگيرد و بجاي ارقام هم ، حروف مربوطه در تكست شماره1 جايگزين شود .
بطوريكه جواب در تكست3 بصورت زير در بيايد:
text3=QRRGDQFE
با تشكر