ho provato questa funzione che estrae solo numeri dalla stringa:
codice:
Function estraiNumero(strIn)
  dim strOut, strTemp
  strOut = ""
  strTemp = ""
  For i = 1 To Len(strIn)
    strTemp = Mid(strIn, i, 1)
    If isNumeric(strTemp) Then
      strOut = strOut & strTemp
    End If
  Next
  estraiNumero = strOut
End Function
e ho cercato di prendere solo i numeri a sinistra del simbolo - con instr:
codice:
var1="ccc567-556hhg6"
Response.Write(estraiNumero(instr(var1, "-")))
ma mi restituisce solo un numero a sinistra del -