string to array???

[AutumnBlues]

Any ideas on converting a string to an array?

For example if...

MrString = "Monday, Tuesday, Wednesday"

How do I convert this so that...

MyArray = Array(Monday, Tuesday, Wednesday)

Any help is much appreciated

AutumnBlues

 

[Sawatzky]

Dear Autumnblues

Have a look at the functions Split and Join

regards Astrid

 

[pgk]

Hi,
Try the following function in a module.

Public Function strToArr(ByVal str As String) As Variant
Dim arr() As String
Dim lastPos As Integer
Dim currPos As Integer
Dim i As Integer
lastPos = 1
currPos = 1

If InStr(1, str, &quot;,&quot;, vbBinaryCompare) <> 0 Then
i = -1
Do While InStr(lastPos, str, &quot;,&quot;, vbBinaryCompare) <> 0
currPos = InStr(lastPos, str, &quot;,&quot;, vbBinaryCompare)
ReDim Preserve arr(i + 1)
arr(i + 1) = Mid(str, lastPos, currPos - lastPos)
lastPos = currPos + 1
i = i + 1
Loop
ReDim Preserve arr(i + 1)
arr(i + 1) = Mid(str, lastPos, Len(str) - (lastPos - 1))
Else
ReDim Preserve arr(0)
arr(0) = str
End If
strToArr = arr
End Function Hope it helps. Let me know what happens.
With regards,
PGK