![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | GetItem(ByVal Index As Integer, ByRef strPhone1 As Variant, ByRef strPhone2 As Variant, ByRef strPhoneComment As Variant) |
Index: Index der Telefonnummer in der Liste strPhone1: Vorwahl strPhone2: Durchwahl strPhoneComment: Kommentar Public Sub GetItem(ByVal Index As Integer, ByRef strPhone1 As Variant, ByRef strPhone2 As Variant, ByRef strPhoneComment As Variant) Dim strLine As String strLine = m_oList.Item(Index) strPhone1 = help_StrList_DeleteFirst(strLine, vbTab) strPhone2 = help_StrList_DeleteFirst(strLine, vbTab) strPhoneComment = help_StrList_DeleteFirst(strLine, vbTab) End Sub |