\d
RegexReplace([Last Initial], "\d", "X")
RedactStrikeoutDigits([Last Initial], "X")
RedactStrikeoutDigits([SSN], "X", 4)