Loope gennem en tekstboks

Følgende skulle gerne loope igennem en listbox og vise dig en besked om hvad der står i hver linie. Der mangler så kode til at indsætte en record.

  Dim intRecCount As Integer
  Dim intRows As Integer     
 
  intRecCount = Me!lstUserItems.ListCount                       
  bolDivider = False                                                     
  If intRecCount > 0 Then                                               
    Me!lstUserItems.SetFocus                                           
    For intRows = 0 To intRecCount - 1                                   
      lstUserItems.Selected(intRows) = True                             
MsgBox Me!lstUserItems.Column(0)                         
      lstUserItems.Selected(intRows) = False                       
    Next intRows                                                   
  End If

Eksemplet er taget ud af en helhed, så du skal nok lige tilpasse det lidt.