Private Sub Form_Load()

' Ett litet exempel
Dim ReturnArray()
Dim Items

Items=ConvertStringToArray (OriginalString, ReturnArray(), ",")

' visa resultatet i debug-fönstret
for a=1 to Items
debug.print ReturnArray(a)
next a

End Sub