Function SplitWord(Word As String) As String()
Dim res() As String
ReDim res(0 To Len(Word) - 1)
For i = 0 To Len(Word) - 1
res(i) = Mid(Word, i + 1, 1)
Next
SplitWord = res
End Function
Sub harfdonus()
Dim harfler() As String
harfler = SplitWord("ali")
MsgBox (harfler(0))
MsgBox (harfler(1))
MsgBox (harfler(2))
End Sub
Çok teşekkür ederim hocam. İşe yaradı.Aşağıdaki splitword fonksiyonu ile istediğiniz şeyi elde edebilirsiniz. Yabancı bir sitede buldum, üzerinde biraz oynadım.
Kod:Function SplitWord(Word As String) As String() Dim res() As String ReDim res(0 To Len(Word) - 1) For i = 0 To Len(Word) - 1 res(i) = Mid(Word, i + 1, 1) Next SplitWord = res End Function Sub harfdonus() Dim harfler() As String harfler = SplitWord("ali") MsgBox (harfler(0)) MsgBox (harfler(1)) MsgBox (harfler(2)) End Sub