1. Trick:

2. Trick:

Private Type Adr
    SatzNummer   As Variant
    Name         As String * 75
    Vorname      As String * 50
    Strasse      As String * 75
    PLZ          As String * 10
    Wohnort      As String * 75
    Land         As String * 50
    Telefon_P    As String * 15
    Telefon_G    As String * 15
    Handy        As String * 15
    Fax          As String * 15
    MailAddresse As String * 125
    HomePage     As String * 255
    Sonstiges    As String * 255
    Bemerkungen  As String * 255
    Formular     As String * 10
'   ......................  1295 Bytes
End Type
 
Private Addressen As Adr

3. Trick:

Private Sub SaveAll(oTxt() As TextBox)
   Dim F As Byte
   Dim DSNr As Long
   Dim i As Integer
 
   For i = 0 To UBound(oTxt)
      With Addressen
        Select Case i
           Case 0
              .SatzNummer = oTxt(i).Text & ";0;"
           Case 1
              .Name = oTxt(i).Text & ";1;"
           Case 2
              .Vorname = oTxt(i).Text & ";2;"
           Case 3
              .Strasse = oTxt(i).Text & ";3;"
           Case 4
              .PLZ = oTxt(i).Text & ";4;"
           Case 5
              .Wohnort = oTxt(i).Text & ";5;"
           Case 6
              .Land = oTxt(i).Text & ";6;"
           Case 7
              .Telefon_P = oTxt(i).Text & ";7;"
           Case 8
              .Telefon_G = oTxt(i).Text & ";8;"
           Case 9
              .Handy = oTxt(i).Text & ";9;"
           Case 10
              .Fax = oTxt(i).Text & ";10;"
           Case 11
              .MailAddresse = oTxt(i).Text & ";11;"
           Case 12
              .HomePage = oTxt(i).Text & ";12;"
           Case 13
              .Sonstiges = oTxt(i).Text & ";13;"
           Case 14
               .Bemerkungen = oTxt(i).Text & ";14;"
           Case 15
               .Formular = oTxt(i).Text & ";15"
        End Select
      End With
   Next
 
   F = FreeFile()
   On Error GoTo FileError
   Open "Adressen.TXT" For Random As #F Len = Len(Adr)
   On Error GoTo 0
     'Anzahl Datensätze ermitteln:
     If LOF(F) > 1 Then
        DSNr = (LOF(F) / Len(Adr))+ 1
     Else
        DSNr = 1
     End If
 
     If oTxt(0).Text <> "" Then DSNr = Val(oTxt(0).Text)
     'Datensatz speichern
     Put #F, DSNr, Addressen
   Close #F
   Exit Sub
 
FileError:
   MsgBox "Die Adressdatei konnte nicht gefunden oder geöffnet werden!", _
     vbExclamation, "Dateifehler"
End Sub

4. Trick

Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" _
     (lpvDest As Any, _
      lpvSource As Any, _
      Byval cbCopy As Long)
 
Private Function ConvertUDT(oUDT As Adr) As String
    Dim s As String
    s = Space(Len(Addressen))
    CopyMem Byval s, oUDT, Len(Addressen)
    ConvertUDT = s
End Function

5. Trick:

Private Sub LoadDS(Byval sNr As Long, oTxt() As TextBox)
   Dim vErg As Variant
   Dim F As Byte
   Dim n As Integer
   Dim i As Long
   Dim S As String
 
   F = FreeFile()
   On Error Goto FileError
   Open "Adressen.TXT" For Random As #F Len = Len(Addressen)
   On Error Goto 0
       Get #F,sNr,Addressen
   Close #F
 
   S = ConvertUDT(Addressen)
   vErg = Split(s,";") 'na Trickreich was :-)
   For i = 0 To UBound(vErg) Step 2
      oTxt(n) = Trim(vErg(i))
      n = n + 1
   Next
 
   Exit Sub
FileError:
   MsgBox "Fehler beim Öffnen der Datei.",vbExclamation,"Dateifehler"
End Sub