'DLL funktionen einbinden
Public Declare Function TwixInitializeEngine Lib "twxapi32.dll" (ByVal laufwerk _
  As String) As Integer
    Public Declare Function TwixUnInitializeEngine Lib "twxapi32.dll" () As _
    Integer
    Public Declare Function TwixSetSearchFirstName Lib "twxapi32.dll" (ByVal _
    fname As String) As Integer
    Public Declare Function TwixSetSearchName Lib "twxapi32.dll" (ByVal fname _
    As String) As Integer
    Public Declare Function TwixSetSearchZipCity Lib "twxapi32.dll" (ByVal zip _
    As String) As Integer
    Public Declare Function TwixSetSearchPhone Lib "twxapi32.dll" (ByVal nr As _
    Integer) As Integer
    Public Declare Function TwixSearch Lib "twxapi32.dll" () As Integer
    Public Declare Function TwixGetSearchResult Lib "twxapi32.dll" (ByVal id As _
      Integer) As Integer
    Public Declare Function TwixGetMainEntry Lib "twxapi32.dll" (ByVal nr As _
    Integer, ByVal value As String, ByVal k As Integer) As Integer
 
'Sub zur Suche nach Daten und ausgabe:
 
        Dim i, j, rescnt As Integer
        Dim value As String
 
        'value = ""
 
        TwixInitializeEngine("E:")
        TwixSetSearchName("thommen")
        TwixSetSearchZipCity("5615")
        rescnt = TwixSearch()
 
        'MsgBox(rescnt) 'Anzahl gefundener Datensätze
 
 
        For i = 0 To rescnt - 1
            TwixGetSearchResult(i + 1)
            'For j = 2 To 49
                TwixGetMainEntry(2, value, 100)
                TextBox1.Text = TextBox1.Text & j & ":" & value & vbCrLf
            'Next j
        Next i
 
        TwixUnInitializeEngine()