a=郵便番号電話番号
b=Left(a,7)
c=Replace(a, Left(a, 7), "")