Aşağıdaki kodları inceleyin lütfen:

Dim bolum1, bolum2 as integer

Dim Metin1,Metin2,Metin3 as string



bolum1=instr(Anametin,",") 

           'ilk virgülün yerini buluyoruz

metin1=left(Anametin,bolum1-1) 

           'Ana metinden virgüle kadar olan kısmı alıp Metin1 değeri elde ediyoruz.

bolum2=instr(bolum1+1,Anametin,",") 

           '2.virgülün yerini bulmak için "bolum1+1" instr fonksiyonunda kaçıncı  

           'karakterden sonra arama yapacağını belirtir.  

metin2=mid(Anametin,bolum1+1,bolum2 -(bolum1+1))

            'anametinin ilk virgülden sonraki kısmından ikinci virgülü bulduğumuz 

            'kısımdan ilk virgülden sonrakini çıkararak bulduğumuz uzunluk kadar

            'karakteri al Metin2 adlı değişkene ata.

Metin3=right(Anametin,(len(anametin)-bolum2+1)) 

            'Anametinin sağdaki kısmundan 2.virgüle kadar olan kısmı metin3 değişkenine  

            'atıyoruz.