Public Sub writeCTImportFile(ByVal name As String, Optional ByVal persNo As _
  String = "", Optional ByVal firstname As String = "", Optional ByVal _
  salutation As String = "", _
                                 Optional ByVal title As String = "", Optional _
                                 ByVal function_description As String = "", _
                                 Optional ByVal company As String = "", _
                                 Optional ByVal depart As String = "", _
                                 Optional ByVal location As String = "", _
                                 Optional ByVal street As String = "", Optional _
                                 ByVal housenumber As String = "", Optional _
                                 ByVal zip As String = "", _
                                 Optional ByVal town As String = "", Optional _
                                 ByVal country As String = "", Optional ByVal _
                                 state As String = "", Optional ByVal _
                                 hierachy_id As String = "", _
                                 Optional ByVal parent_id As String = "", _
                                 Optional ByVal hierachy_display As String = _
                                 "", Optional ByVal hierarchy_type As String = _
                                 "", Optional ByVal hierarchy_order As String = _
                                 "", Optional ByVal keyword As String = "", _
                                 Optional ByVal addinfo As String = "", _
                                 Optional ByVal quer_buero As String = "", _
                                 Optional ByVal intPrefix_buero As String = "", _
                                 Optional ByVal natPrefix_buero As String = "", _
                                 Optional ByVal trunk_buero As String = "", _
                                 Optional ByVal line_buero As String = "", _
                                 Optional ByVal numberunformated_buero As _
                                 String = "", Optional ByVal color_buero As _
                                 String = "", _
                                 Optional ByVal building_buero As String = "", _
                                 Optional ByVal room_buero As String = "", _
                                 Optional ByVal quer_mobile As String = "", _
                                 Optional ByVal intPrefix_mobile As String = _
                                 "", Optional ByVal natPrefix_mobile As String _
                                 = "", _
                                 Optional ByVal trunk_mobile As String = "", _
                                 Optional ByVal line_mobile As String = "", _
                                 Optional ByVal numberunformated_mobile As _
                                 String = "", Optional ByVal color_mobile As _
                                 String = "", _
                                 Optional ByVal building_mobile As String = "", _
                                 Optional ByVal room_mobile As String = "", _
                                 Optional ByVal quer_fax As String = "", _
                                 Optional ByVal intPrefix_fax As String = "", _
                                 Optional ByVal natPrefix_fax As String = "", _
                                 Optional ByVal trunk_fax As String = "", _
                                 Optional ByVal line_fax As String = "", _
                                 Optional ByVal numberunformated_fax As String _
                                 = "", Optional ByVal color_fax As String = "", _
                                 Optional ByVal building_fax As String = "", _
                                 Optional ByVal room_fax As String = "", _
                                 Optional ByVal quer_mail As String = "", _
                                 Optional ByVal intPrefix_mail As String = "", _
                                 Optional ByVal natPrefix_mail As String = "", _
                                 Optional ByVal trunk_mail As String = "", _
                                 Optional ByVal line_mail As String = "", _
                                 Optional ByVal numberunformated_mail As String _
                                 = "", Optional ByVal color_mail As String = _
                                 "", _
                                 Optional ByVal building_mail As String = "", _
                                 Optional ByVal room_mail As String = "", _
                                 Optional ByVal quer_home As String = "", _
                                 Optional ByVal intPrefix_home As String = "", _
                                 Optional ByVal natPrefix_home As String = "", _
                                 Optional ByVal trunk_home As String = "", _
                                 Optional ByVal line_home As String = "", _
                                 Optional ByVal numberunformated_home As String _
                                 = "", Optional ByVal color_home As String = _
                                 "", _
                                 Optional ByVal building_home As String = "", _
                                 Optional ByVal room_home As String = "")
 
        Try
            Dim insertStr As String
            If Not sAppPath.EndsWith("\") Then sAppPath = sAppPath & "\"
            insertStr = //Übergebene Werte//
            Dim FStreami As New System.IO.FileStream(sAppPath & "import.txt", _
              System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write, _
              System.IO.FileShare.Write)
 
            FStreami.Close()
 
            Dim sFilePathe As String = sAppPath & "import.txt"
            Dim streami As System.IO.FileStream = New System.IO.FileStream( _
              sFilePathe, System.IO.FileMode.Append)
            Dim SWriter As System.IO.StreamWriter = New System.IO.StreamWriter( _
            streami, System.Text.Encoding.Default)
 
            SWriter.WriteLine(insertStr)
            SWriter.Close()
 
        Catch e As Exception
 
            writeLog("writeCTImportFile", e.Message)
        End Try
 
    End Sub