Remove trailing "-" characters from a string in VB6

I need to 开发者_运维技巧remove trailing "-" characters from a string in VB6. How can i achieve this? Any help or hints are appreciated.

This should work, but it will execute relatively slowly. I would think the speed will be acceptable in many situations.

Do While Right(s, 1) = "-"
  s = Left(s, Len(s) - 1)
Loop