Excel VBA

Write Contents of Multi Choice Box

My example may be a little hard to follow because I had to parse the data into 2 fields as it was written to cells.

For U = 0 To usrCreateNew.cmbTEaccts.ListCount - 1    'Items in Multi-select
    If usrCreateNew.cmbTEaccts.Selected(U) = True Then    'Items selected
       Cells(DaRow + G, 1) = _
       Right(usrCreateNew.cmbTEaccts.List(U), _      
                Len(usrCreateNew.cmbTEaccts.List(U)) - 7)       'Parse right section
      Cells(DaRow + G, 2) = _
             Left(usrCreateNew.cmbTEaccts.List(U), 6)         'Parse Left section
         For szCol = 33 To 77 Step 4	 'Cols 33,37,41, etc.
             Cells(DaRow + G, szCol) = 0            'Zero the columns
         Next szCol
         G = G + 1                                                   'Next row
    Else
    End If                
Next U