read letters of a surname sequentially

[KG Old Wolf]

This is a perfect use of an array and I am missing something very basic.

I am trying to load a surname variable into an array and then index through each element to inspect and assign a value (part of a SOUNDEX routine). I ReDim the array with the length of the surname but the entire surname loads into the first array element and I can't access a single letter (I get the entire name). Below is a simple code snippet. Suggestions greatly appreciated!


Sub KG()
wrk_string = "Test"
wrk_length = Len(wrk_string)
ReDim ary_last_name(1 To 1)
ary_last_name(1) = wrk_string
ReDim ary_last_name(1 To wrk_length)
MsgBox (ary_last_name(2))

End Sub

 

[pgc01]

Hi

See if this helps:

Sub SplitWord()
Dim s As String
Dim vLetters() As String
Dim j As Long

s = "Test"
ReDim vLetters(1 To Len(s))

' Load each element of the array with 1 letter of the word
For j = 1 To Len(s)
    vLetters(j) = Mid(s, j, 1)
Next j

MsgBox vLetters(2)
End Sub

 

[KG Old Wolf]

PGC...

Thanks, it helps a great deal. I particularly appreciate he speed of your response.


Best regards,
Ken

 

[pgc01]

You're welcome. Thanks for the feedback.