Public Sub testContact()
Dim contact As ContactItem
Dim anzahl As Integer
If MsgBox("Funktion starten?", vbYesNo) = vbYes Then
anzahl = 1
On Error GoTo fehler
For Each contact In Application.ActiveExplorer.Selection

If contact.ItemProperties.Class = olMail Then
contact.Email1Address = contact.Email1Address & " "
contact.Email2Address = contact.Email2Address & " "
contact.Email3Address = contact.Email3Address & " "
contact.Email1Address = Strings.Left(contact.Email1Address, Strings.Len(contact.Email1Address) - 1)
contact.Email2Address = Strings.Left(contact.Email2Address, Strings.Len(contact.Email2Address) - 1)
contact.Email3Address = Strings.Left(contact.Email3Address, Strings.Len(contact.Email3Address) - 1)
contact.Close olSave
End If
anzahl = anzahl + 1
Next

Else
'Funktion wird nicht gestartet.
End If
Exit Sub
fehler:
MsgBox "Es ist der Fehler Nr. " & Err.Number & " mit der Beschreibung : " & Err.Description & " bei der Bearbeitung des Elements "
MsgBox "Das " & anzahl & "te Element in der Markierung konnte nicht verarbeitet werden."
End Sub