It is probably easier to use select case for the choices and as you have not explained what the abbreviations represent then the following is probably close.

    ListBox3.Clear
    Select Case ListBox4.Text
        Case ALB
            With ListBox3
                .AddItem ALB1 & " " & ALB1L
                .AddItem ALB2F & " " & ALB2L
                .ListIndex = -1
            End With
        Case AML
            With ListBox3
                .AddItem AML1F & " " & AML1L
                .ListIndex = -1
            End With
        Case CON
            With ListBox3
                .AddItem CON1F & " " & CON1L
                .AddItem CON2F & " " & CON2L
                .ListIndex = -1
            End With
        'etc
    End Select