Private Type StripData
    Callsign As String
    Dep As String * 4
    Arr As String * 4
End Type
 
Private MaxStrip As Integer
 
Private StripData1() As StripData
Private StripDataHelp As StripData
 
Private Sub Command1_Click()
    Dim bTausch As Boolean
 
    MaxStrip = UBound(StripData1)
 
    If MaxStrip < 1 Then Exit Sub
 
    For i = 0 To MaxStrip - 1
        bTausch = False
        For j = 0 To MaxStrip - 1 - i
            If IsGroesser(StripData1(j).Dep, StripData1(j + 1).Dep) Then
                StripDataHelp = StripData1(j)
                StripData1(j) = StripData1(j + 1)
                StripData1(j + 1) = StripDataHelp
                bTausch = True
            End If
        Next j
        If Not bTausch Then Exit For
    Next i
End Sub
 
Public Function IsGroesser(s1 As String, s2 As String) As Boolean
    If s1 > s2 Then
        IsGroesser = True
    Else
        IsGroesser = False
    End If
End Function
 
Private Sub Command2_Click()
    List1.AddItem "----"
    For i = 0 To 10
        List1.AddItem StripData1(i).Dep
    Next i
End Sub
 
Private Sub Form_Load()
    For i = 0 To 10
        s = vbNullString
        For j = 0 To 3
            s = s + Chr(65 + CInt(Rnd * 25))
        Next j
        ReDim Preserve StripData1(i)
        StripData1(i).Dep = s
        List1.AddItem s
    Next i
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1