Detectar dos splits seguidos

[Myakire]

A ver que te parece esto, disculpa lo carrereado pero en serio hoy no he tenido chance

Código:

<%
'cadena = "u2_the_best_of_1960_1970_front.jpg"
'cadena = "u2_dublin_1993_back.jpg"
cadena = "u2_dublin_(1_back.jpg"

vec = split(cadena, "_")
Cnt = 0
Veces = 0
For i=0 to Ubound(vec)
   On Error Resume Next
      Valor = CInt(vec(i))
   If Err.number<>0 then Valor = "" End If
	 If VarType(Valor)=2 Then
	    If Veces=0 Then Cnt = i End If  
			Veces = Veces + 1
	 End If
Next 
If Veces=1 Then
    Valor = CInt(vec(Cnt)) 
		If (Valor >= 1900 and Valor <= 2500) Then
       vec(Cnt) = "(" & vec(Cnt) & ")"
		End IF 
End If
NewCad = Join(vec,"_")

Response.Write Cadena & "  -> "& NewCad 
%>