Top1:
    If Not LCase(lstA.List(PosListA)) = LCase(lstB.List(PosListB)) Then
        If PosListB < lstB.ListCount Then
            PosListB = PosListB + 1
            GoTo Top1
        Else
           lstC.AddItem (lstA.List(PosListA))
           PosListA = PosListA
           PosListB = "0"
        End If
    Else
        If Not PosListA >= lstA.ListCount Then
            PosListA = PosListA + 1
        Else
            Exit Sub
        End If
        PosListB = "0"
        GoTo Top1
    End If
 
PosListA = PosListA + 1
PosListB = "0"
GoTo Top1