View Single Post
  #5 (permalink)  
Old December 15th, 2006, 03:16 PM
BrianWren BrianWren is offline
Friend of Wrox
 
Join Date: Nov 2004
Location: Port Orchard, WA, USA.
Posts: 1,621
Thanks: 1
Thanked 3 Times in 3 Posts
Default

Sililar to what Shasur proffered:
Code:
    Dim i as integer
    Dim arTemp As String
    arTemp = Split(<Your String Here>, "*")

    Select Case arTemp(0)
        Case "GS"
            ' Do an iterative process here.
            For i = 2 To Ubound(srTemp)
                ' . . .
            Next i

            ' or
            Select Case arTemp(1)
                Case "HB"
                    ' . . .
                Case "H1"
                    ' . . .
            End Select
        Case "ISA"
            [green]' . . .
    End Select
Reply With Quote