en tu caso, se me ocurre que metas las posibles opciones en un array (el siguiente ejemplo lo dare en pseudo Código por que no me acuerdo de VB6 )
PosiblesOpcionesArray = {"uno", "dos", "tres", "cuatro"}
y luego verificas si el valor de CarpetaActual esta en el array de posibles opciones. algo como esto :
If .ListCount = 0 Or PosiblesOpcionesArray.Contains(CarpetaActual) then
en tu caso como no creo que dispongas de listas y metodos auxiliares como Contains. tendrias que crear la funcion manualmente :
Function Contains(Array, Valor) As Boolean
For Each elemento In Array
If elemento = Valor Then
Return True
End If
Next elemento
Return False
End Function
y tu if quedaria de ewsta manera :
If .ListCount = 0 Or Contains(PosiblesOpcionesArray, CarpetaActual) then