con split sul carattere "-"

str=split(stringa,"-")

response.write Trim(str(Ubound(str)))