Comparar cadenas

[Frehley]

Hola gente, tengo un problema simple, pero este tipo de funciones logicas me matan y lo tengo que terminar para mañana...

Tengo dos labels: Recibidos y Faltantes
Hay unos informes que llegan una vez por semana, en total son 8, entonces al final de las 8 semanas los informes recibidos deberían ser 1/2/3/4/5/6/7/8.

Ahora supongamos que en no enviaron todos los informes y que solo llegaron los informes 4/5/6.

Como podría hacer para que el label Faltantes tome el valor de los informes que no se entregaron a tiempo? En este caso sería 1/2/3/7/8

Informes que deberían estar: /1/2/3/4/5/6/7/8
Recibidos: 4/5/6
Faltantes: 1/2/3/7/8 (éste tiene que tomar ese valor automáticamente teniendo como referencia los otros dos valores)

Muchas gracias!

[tazzito]

hola prueba con este codigo puedes cambiar los valores si tienes dudas preguntalas, espero te sirva que estes bien

haber = "1/2/3/4/5/6/7/8"
hay = "4/5/6/7"

arrhaber = Split(haber, "/")
arrhay = Split(hay, "/")

falta = ""
For x = 1 To UBound(arrhaber)
esta = 0
For j = 1 To UBound(arrhay)
If arrhaber(x) = arrhay(j) Then esta = 1
Next j
If esta = 0 Then falta = falta & IIf(falta = "", "", "/") & arrhaber(x)
Next x

MsgBox falta

[Frehley]

No te puedo explicar como me salvaste!!! MUCHISIMAS GRACIAS!!! FUNCIONA PERFECTO!

[tazzito]

de nada, esa es la idea que funcione y te sirva :D