Property | SalutationShort(ByVal Index As Integer) As String |
---|---|
Index: Index der Anrede in der Liste Rückgabewert: Anredekürzel; z.B. Herr, Frau, Firma, ... oder Leerstring Public Property Get SalutationShort(ByVal Index As Integer) As String Dim strSubItem1 As String Dim strSubItem2 As String Dim strSubItem3 As String GetItem Index, strSubItem1, strSubItem2, strSubItem3 SalutationShort = strSubItem1 End Property |