Thread: find and delete text, find a 10-digit number and put it in a textbox
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Paul Paul is offline
external usenet poster
  
Posts: 11
Default find and delete text, find a 10-digit number and put it in a textbox
It actually didn't take too long to find a solution myself. Sorry!

My own solution:

If IsNumeric(Right(TextBox2.Text, 11)) Then
TextBox3.Value = Right(TextBox2.Text, 11)
TextBox2.Value = Application.Substitute(TextBox2.Text,
Right(TextBox2.Text, 11), "")
End If
Reply With QuoteReply With Quote