Getting Values from String/Array

[WideAwake]

Let says I had a string given back from a certain fuction or 'DLL' that contained numerous values about the system that was seperated by a certain charactor (!%) example:

FAT32!%63555432!%FALSE!%24082000!%C:!%14

I now want to know how to put each individual value into varibles, so it would end up like this:

sys1 = FAT32
sys2 = 63555432
sys3 = FALSE

e.t.c

Can someone please help me out ?
TIA

[Mark Sreeves]

use the split() function

Option Explicit

Private Sub Command1_Click()
Dim strTemp() As String
Dim i As Integer
strTemp = Split("FAT32!%63555432!%FALSE!%24082000!%C:!%14", "!%")

For i = 0 To UBound(strTemp())

Debug.Print strTemp(i)
Next i

End Sub

split is vb6 only so for vb 5 you'll need this:

Public Function Split(ByVal sIn As String, Optional sDelim As _
            String, Optional nLimit As Long = -1, Optional bCompare As _
             VbCompareMethod = vbBinaryCompare) As Variant
          Dim sRead As String, sOut() As String, nC As Integer
          If sDelim = "" Then
              Split = sIn
          End If
          sRead = ReadUntil(sIn, sDelim, bCompare)
          Do
              ReDim Preserve sOut(nC)
              sOut(nC) = sRead
              nC = nC + 1
              If nLimit <> -1 And nC >= nLimit Then Exit Do
              sRead = ReadUntil(sIn, sDelim)
          Loop While sRead <> ""
          ReDim Preserve sOut(nC)
          sOut(nC) = sIn
          Split = sOut
      End Function