[Message Deleted]

[hkjghkj1]

[Message Deleted]

[alx n]

Try this: n = TextBox1.Text If IsNumeric(n) then Dim sTemp as string = n.Substring(0,1) TextBox1.Text = n End If

alex_nel

[Luc Pattyn]

myventsi wrote:

Why it' s not working?

Because your code is utterly wrong. The last iteration of your while loop will result in n being zero, since that is what makes the while-test fail; now when n is such that n/10 is zero, then for sure n\10 is also zero. What you need is a modulus operator, and fortunately your language has one. :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

- before you ask a question here, search CodeProject, then Google - the quality and detail of your question reflects on the effectiveness of the help you are likely to get - use the code block button (PRE tags) to preserve formatting when showing multi-line code snippets

---