VBScript help: Loop through comma delimited string

Hi All,

I am not a VBScript guy but Dymo label is only called through VBScript:
<SCRIPT LANGUAGE=VBScript>
Sub Btn1_onclick()
  Dim DymoAddIn, DymoLabel, lAddress, lnbrOfLabels
  Set DymoAddIn = CreateObject("DYMO.DymoAddIn")
  Set DymoLabel = CreateObject("DYMO.DymoLabels")
  DymoAddIn.Open "C:\Documents and Settings\All Users\Documents\DYMO Label\Label Files\STRCToteBoxLabel.LWL"
// NEED LOOP SYNTAX
CONTINUE BOOLEAN:=true;
LOOP WHILE CONTINUE
// THIS WILL RETURN A COMMA DELIMITED LIST OF LOCATIONS, ALPHA-NUMERIC CHARACTER STRING
  lBxLabelList = getToteBarcode()  //THIS IS GOOD... JS FUNCTION THAT GETS LIST OF LOCATIONS
  IF lBxLabelList is null THEN CONTINUE = FALSE; END IF;
  lBxLabel:=SUBSTRING OR FIND OR MID ???? TO GET FIRST LOCATION IN COMMA DELIMITED LIST.
  DymoLabel.SetAddress 2, lBxLabel
  DymoAddIn.Print lnbrOfLabels, TRUE
END LOOP;
End Sub
</SCRIPT>

Thank you for your help,
Bill