per karakter inlezen uit een textbox

[michiel74]

'avond,

Graag wil ik per karakter uitlezen uit een textbox.
Als ik dus bijvoorbeeld "abcd1234" heb wil ik per karakter kunnen inlezen.
Dus uiteindelijk
var1 = a
var2 = b
...
var 8 = 4

K weet alleen niet hoe dit moet? Iemand een idee??

Tnx

 

[JHx]

Private Sub Command1_Click()
Dim sLetters() As String, sTekst As String, iLen As Integer, i As Integer
  sTekst = Text1.Text
  iLen = Len(sTekst)
  ReDim sLetters(iLen) As String
  For i = 1 To iLen
    sLetters(i) = Mid(sTekst, i, 1)
  Next
End Sub

 

[michiel74]

top, ga het vanavond meteen proberen.

Thnx

 

[michiel74]

precies wat ik bedoel. Top