If strPhone <> String.Empty Then strCode = strPhone.Substring(0, CodeLength) If strCode = Code Then strPhone = Phone.Substring(CodeLength) End IfEnd If