Dim Trennung As Integer
Dim Frei As Integer
Dim Hilfe As Person
 
 
For Trennung = 1 To UBound(Mensch)
Hilfe = Mensch(Trennung)
Frei = Trennung
 
 
Do While (Frei > 1) And (Mensch(Frei - 1).Name > Hilfe.Name)
   Mensch(Frei) = Mensch(Frei - 1)
   Frei = Frei - 1
   If Frei = 1 Then Exit Do
Loop
 
Mensch(Frei) = Hilfe
 
Next Trennung
 
With Mensch(1)
txtName.Text = Mensch(AktuellePerson).Name
txtVorname.Text = Mensch(AktuellePerson).Vorname
txtGeburtsdatum.Text = Mensch(AktuellePerson).Geburtsdatum
txtTelefon.Text = Mensch(AktuellePerson).Telefon
txtWohnort.Text = Mensch(AktuellePerson).Wohnort
End With