How about

VB Code:
  1. tranperiod = tranperiod.Substring(1, 8)