for each ile kelimenin harflerini alma

[ASMET67]

For each döngüsünü bir kelie içerisinde döndürüp o kelimeyi harflare ayırabilirmiyim.

Örnek olarak For each a in Araba

next
araba kelimesini döngü döndükce ayırmak istiyorum. A.R.A.B.A
Yardımlarınız için teşekkürler

 

[snx111]

daha dün yazdığım bir kod
http://www.excel.web.tr/attachment.php?attachmentid=134515&d=1340834847

 

[ASMET67]

İlginiz için teşekkürler.
Yalnız be form üzerinde bulunan texbox tan araç plakasını bölmek istiyorum 34 as 207 bunu hayrı ayrı textboxlara textbox1 'e 34, textbox2 'ye As, textbox3'e 207 olarak nasıl bölebilirim.

 

[Korhan Ayhan]

Merhaba,

SPLIT komutu ile bu işlemi yapabilirsiniz.

TextBox2 = Split(TextBox1 , " ") (0)
TextBox3 = Split(TextBox1 , " ") (1)
TextBox4 = Split(TextBox1 , " ") (2)

Nesne isimlerini kendinize göre düzenleyiniz.