Dim f As FolderItem
Dim t As TextOutputStream
Dim i As Integer
Dim l As String
 
f = SpecialFolder.Preferences.Child("ListboxData")
 
if f < > nil then // f different from nil
   t = f.CreateTextFile 
   if t < > nil then // t different from nil
     for i = 0 to ListBox1.ListCount -1
        l = ListBox1.Cell(i,0) + chr(9) + ListBox1.Cell(i,1)
        t.WriteLine l
      next
    t.close
  end if
end if

Dim f As FolderItem
Dim t As TextInputStream
Dim l As String
 
f = SpecialFolder.Preferences.Child("ListboxData")
 
if f < > nil then // f different from nil
    if f.exists then
      t = f.OpenAsTextFile
      if t < > nil then // t different from nil
        ListBox1.DeleteAllRows //clear items from Listbox
        do
          l = t.ReadLine //l is made up of the software name + tab character chr(9) + the descrition 
          ListBox1.Addrow nthField(l,chr(9),1) //the first field of l is Software
          ListBox1.Cell(ListBox1.LastIndex,1) = nthField(l,chr(9),2) //the second field of l is Description 
        loop until t.EOF //keep looping until the End Of the File 
        t.close
    end if
  end if
end if