ListBoxstatus

Hallo Experten,

ich brauche wieder mal eure Hilfe.

Ich möchte ListBoxstaus auslesen in Label1 und zwar wenn ListBox1 angeklickt ist soll in
Label1.Caption = "ListBox2 klicken" stehen und umgekehrt, aber wenn beide angeklickt sind
soll in Label1.Caption = "Jetzt soll wieter gehen" und Label1.Enabled = True.
In moment wenn ich zuerst ListBox2 anklicke ist Label.Caption richtig umgekehrt nicht.

Das ist die Code die ich versucht habe zu erweitern:

Private Sub ListBox1_Change()
            
        Label1.Enabled = ListBox1.ListIndex > -1 And IstSelected(ListBox2)              

    If ListBox1.ListIndex > -1 And ListBox2.ListIndex = -1 Then
        Label1.Caption = "ListBox2 klicken"
    End If

End Sub

Private Sub ListBox2_Change()

        Label1.Enabled = ListBox1.ListIndex > -1 And IstSelected(ListBox2)

    ListBox2.ListIndex > -1 And ListBox1.ListIndex = -1 Then
        Label1.Caption = "ListBox1 klicken"
    End If

End Sub

Private Function IstSelected(lbx As Object) As Boolean

    Dim I As Integer

    For I = 0 To lbx.ListCount - 1
        IstSelected = IstSelected Or lbx.Selected(I)
        Label1.Caption = "Jetzt soll wieter gehen"
   Next

End Function