Dim a As String = "HC00101-2003001"output.show(a.split("-")(1) .SubString(4))
或
output.show(right(a,3))