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