Vba 'da telefon numarasını parçalama

[koridor1903]

İyi çalışmalar arkadaşlar. Excel üzerinden bir web sitesine telefon numarasını göndermem gerekiyor. Bunun için Vba kısmında telefon numarasını parçalamam lazım. Örneğin: 05432198765 numarasını her bir sayıyı ayırarak diziye aktarmam lazım (dizi(0)=5, dizi(1)=4, dizi(2)=3, dizi(3)=2, dizi(4)=1, dizi(5)=9 şeklinde) ama takıldım ilerleyemiyorum. Bu tarz bir işlem yapan var mı acaba?

 

[Haluk]

Örneğin telefon numarası A1 hücresindeyse;

Sub Test()
    Dim myArr()
    myStr = Range("A1").Text
    ReDim myArr(0 To Len(myStr) - 1)
    
    For i = 0 To UBound(myArr)
        myArr(i) = Mid(myStr, i + 1, 1)
    Next
    
    'Test...
    MsgBox myArr(2)
End Sub

.

 

[koridor1903]

Teşekkür ederim.
ReDim myArr(0 To Len(myStr) - 1) yerine ReDim myArr(0 To Len(myStr) ) yaptığımda tüm sayıları aldı, diğer türlü en son sayıyı almıyor.

 

[Haluk]

Az önce revize etmiştim, onu kullanın...

.

 

[koridor1903]

Tekrar teşekkür ediyorum.

 

[Asri]

Alternatif;

Sub SplitExample()
    Dim myArr() As String
    mystr = Range("A1").Text
    myArr = Split(StrConv(mystr, vbUnicode), Chr$(0))
    ReDim Preserve myArr(UBound(myArr) - 1)
End Sub