Private Sub cmdAuslesen_Click()
 
    Set oNameSpace = oOutlook.GetNamespace("MAPI")
    AktUser = oNameSpace.CurrentUser
    Set oMapiFolder = oNameSpace.GetDefaultFolder(olFolderTasks)
    Set oItems = oMapiFolder.Items
    Dim sUserProperties As String
 
    For iCounter = 1 To oItems.Count
        sUserProperties = ""
        For Each oUP In oItems(iCounter).UserProperties
            sUserProperties = sUserProperties & ", " & oUP.Value
        Next
        lstAufgaben.AddItem oItems(iCounter).Subject & _
                ", " & oItems(iCounter).Importance & _
                ", " & oItems(iCounter).PercentComplete & _
                ", " & oItems(iCounter).Categories & _
                sUserProperties
    Next iCounter
 
End Sub