Dim x$
x = TextBox2.Value
x = IIf(Len(x) > 0, "\" & Mid(x, 1, 1), "") & IIf(Len(x) > 1, "\" & Mid(x, 2, 1), "") & IIf(Len(x) > 2, "\" & Mid(x, 3, 1), "") & IIf(Len(x) > 3, "\" & Mid(x, 4, 1), "") & IIf(Len(x) > 4, "\" & Mid(x, 5, 1), "")
ActiveCell.Offset(0, 1).Range("A1").NumberFormat = "0"" ± """ & x