Comparar cadenas

[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