Add All Special-Folders to Listbox

  Dim sFolder As Environment.SpecialFolder
     For sFolder = 0 To 43
       If Not Char.IsNumber(sFolder.ToString) Then
         lst.Items.Add(sFolder.ToString)
       End If
     Next