[RESOLVED] How to seperate a string?

[Gamemaster1494]

I need to know how to separate a line that the user types into a text box, and separate them by each character, and do something with that character. How would i do this? I also need to be able to calculate the total number of characters typed. Thanks.

[CDRIVE]

I would imagine the Split() function to split up your string and the Len() function to return the character count. Note: Len() counts spaces too!

[Gamemaster1494]

Okay. After the split function, how would i assign the character to a variable?

[baja_yu]

Split function will place the results in an array.

[Gamemaster1494]

Oh. Ok. So like
arrExample() = Split(txtExample.text)
?

[CDRIVE]

Like this. Note the array as baja_yu stated.

Option Explicit

Private Sub Command1_Click()
   Dim strWords As String
   Dim strSplit() As String
   Dim i As Integer
   strWords = "A String comprised of six words"
   strSplit = Split(strWord, " ")                           ' split strWords at each space char.
   For i = 0 To UBound(strSplit)
      MsgBox strSplit(i)
   Next i
End Sub

[Gamemaster1494]

how can i get it to split each character though? like if the word was "Hello" it would do H e l l and o.

[baja_yu]

Use Mid$ in a For loop instead of split for that.

For I = 1 To Len(Text1.Text)
   MsgBox Mid$(Text1.Text, I, 1)
Next I

[Gamemaster1494]

Sweet! That worked baja_yu. Thanks so much!

[CDRIVE]

how can i get it to split each character though? like if the word was "Hello" it would do H e l l and o.

I should have read your first post more thoroughly. Mid(), as already stated by B_Y.

[Gamemaster1494]

Hehe. Thanks also CDRIVE. =)