textbox tan textbox a veri aktarma

[işsiz123]

Arkadaşlar selâm aleyküm
userform üzerinde 4 adet textbox var ben textbox1 're düz metim olarak yazı yazıyorum örnek olarak textbox1 e mehmet<adı1>ali<adı2>can<adı3>veli<adı4>" textbox1 'e "mehmet" textbox2"ali" textbox3"can" textbox4 "veli" diye dağıtsın




örnek olarak
Tekxbox1 'e " mehmet<adı1>ali<adı2>can<adı3>veli<adı4>". Diye yazıyorum

textbox1 = <adı1> yani mehmet
textbox2 =<adı2> yani ali
textbox3 =<adı3> yani can
textbox4= <adı4> yani veli diye dağıtacak

 

[ÖmerBey]

Ve aleykum selam,
Şu kodları deneyiniz.

Sub KOD()
metin = Textbox1.Text
For a = 1 To 4
    Controls("Textbox" & a) = Split(Split(metin, ">")(a - 1), "<")(0)
Next
End Sub

 

[işsiz123]

Ve aleykum selam,
Şu kodları deneyiniz.

Sub KOD()
metin = Textbox1.Text
For a = 1 To 4
    Controls("Textbox" & a) = Split(Split(metin, ">")(a - 1), "<")(0)
Next
End Sub

teşekkürler denedim olmadı veya ben yapamadım