RE:Como valido una cadena
Jose, pueba con un script como este.
cadena = "123456789012abc"
If Len( cadena ) <> 15 Then
Msgbox "La cadena debe tener 15 posiciones" , 48, "Atencion"
Exit Sub
Elseif Not Isnumeric ( Right( cadena , 3 ) ) Then
Msgbox "Los ultimas 3 posiciones de la cadena, deben ser numericas" , 48, "Atencion"
Exit Sub
End If
Saludos