Try using the FormatNumber function. Change vbFalse to vbTrue to show digit separators.

Text1.Text = FormatNumber(Val(Text1.Text)-1,0,,, vbFalse)