Sub | SetItem(ByVal Index As Integer, ByVal strSalutationShort As String, ByVal strSalutationLong As String, ByVal strSalutationLetter As String) |
---|---|
Index: Index der Anrede in der Liste strSalutationShort: Anredekürzel; z.B. Herr, Frau, Firma, ... oder Leerstring strSalutationLong: Anrede strSalutationLetter: Briefanrede Public Sub SetItem(ByVal Index As Integer, ByVal strSalutationShort As String, ByVal strSalutationLong As String, ByVal strSalutationLetter As String) Dim strLine As String strLine = strSalutationShort & vbTab & strSalutationLong & vbTab & strSalutationLetter m_oList.Item(Index) = strLine End Sub |