version 5.80 0 Form1 1 1 0 0 0 3 0 0 2 0 0 0 0 1 0 0 0 0 0 0 238 268 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addlabel(form1,Label3,5,80,75,25,"Nrs to Strip",220,220,220,0,0,0,True,True,9)@ addnum(form1,Num1,5,110,60,0,100,255,255,255,True,True)@ addbutton(form1,Button1,115,95,90,40,"Strip Number",212,208,200,0,0,0,True,True,9)@ addtextbox(form1,TextBox2,115,45,110,22,"",255,255,255,0,0,0,True,True,False,9)@ addlabel(form1,Label2,5,45,105,25,"Striped Number:",220,220,220,0,0,0,True,True,9)@ addlabel(form1,Label1,5,10,105,25,"Original Number:",220,220,220,0,0,0,True,True,9)@ addtextbox(form1,TextBox1,115,10,110,22,"",255,255,255,0,0,0,True,True,False,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. Dim number(0) As string End Sub Sub App_Start Form1.Show End Sub Sub Button1_Click If IsNumber(textbox1.Text)=false Then Msgbox("the string entered is not in a valid number Fomat." & crlf & "Please use 123,456 Format","Input String Error!") number()=StrSplit(textbox1.text,",") newnumber=StrRemove(number(1),StrLength(number(1)-num1.Value)-1,num1.Value) textbox2.Text=newnumber End Sub