Text Boxes

Ok ok i got it
Now can anyone plz tell me how can i search a particular word in a line of a textbox
For example one line of the file list is
"PSP_GAME\USRDIR\nis\Convoy\Ryak_1_es.ssg"
There are many lines like this so now i have to find that if the consists of 'es' then it will give me a message (well i have to add it to a line i'll do that myself)

I know how to replace but in this case i don't want to replace i just want to find

Code:

---

Dim MyPos
        MyPos = InStr(TextBox1.Text, TextBox2.Text)
                MsgBox(MyPos)
If MyPos = 0 = False Then
            MsgBox("its having it")
        Else
            MsgBox("Its Not having ny language Files")
        End If

---

if u have any better codes plz reply
its not working
plz give any other codes

If you do not need to know the position of the found string token (if any) then you can use .Contains method:

vb.net Code:

If TextBox1.Text.Contains(TextBox2.Text) Then
    ' String found
Else
    ' String not found
End if

hi i wanted to know the in 0*00000000 offset in a textbox

Hey i wanted to do something like if the answer comes 23 which is 2 digit and i want in 6 digits so when i press a button i get 000023
or if i get 456 i should get 000456
and so on plz can u give me some help

Code:

---

  Label1.Text = Len(TextBox1.Text)
        If Label1.Text = 1 Then
            TextBox1.Text = "00000" + TextBox1.Text
        ElseIf Label1.Text = 2 Then
            TextBox1.Text = "0000" + TextBox1.Text
        ElseIf Label1.Text = 3 Then
            TextBox1.Text = "000" + TextBox1.Text
        ElseIf Label1.Text = 4 Then
            TextBox1.Text = "00" + TextBox1.Text
        ElseIf Label1.Text = 5 Then
            TextBox1.Text = "0" + TextBox1.Text
        End If

---

Ok i got it

And i have this codes i hangs sometimes plz if you have anything better plz tell me

Code:

---

Dim AddedLines As New List(Of String)
            Dim Lines As String()
            Dim line_idx As Integer
            Lines = TextBox1.Lines
            Dim Progress As Integer = 0

            For line_idx = 0 To Lines.Length - 1

                Dim sText() As String = Split(Lines(line_idx), ",")

                Dim b As String() = Split(TextBox1.Text, vbNewLine) ''Deletes a line
                TextBox1.Text = String.Join(vbNewLine, b, 1, b.Length - 1)

                Label5.Text = TextBox1.Lines.Length ' Calculate the number of lines


                Dim ssText() As String = Split(Lines(line_idx), ",")

                Dim Final As Integer
                Final = ssText(0) - "1"

                Dim se As String
                se = sText(0) & "  " & Final

                AddedLines.Add(se)
                Progress = CInt(line_idx / Lines.Length * 100)
                ProgressBar1.Value = Progress
                'Loop
                If Label5.Text = "1" Then  'I have to stop if there is 1 line left
                    TextBox2.Lines = AddedLines.ToArray
                    Exit Sub
                End If
            Next

---

anyone?? how to get this offset 0*00000000

hey guys please help me out
i need to find out a word with continous 4 letters and then continues 5 numbers like
four1245

plz suggest me something what can i do????