VB Code:
  1. strtext = left$(strtext, len(strtext) - 3)