Copy Word Contained

[Thanks><]

How would i get the word contains an "@" into a text file. So far in my code for this i have quite a bit of what is needed, atleast from what i understand.

Here is what i have so far:

If thetextbox.Text.Contains("@") = True Then

So any ideas on how i can get the word only that contains an @ and get that pasted somewhere. The paste doesn't have to be specific, i just need the general idea on how to get this done. Help is appreciated and will be awarded.

[visitor]

Now what did you ask? Read from a file:

		Dim neededletter As String = "@"
        Dim strA As String = ""
        Dim arrA As Array
        Dim strB As String = ""
        Dim youwanttocopythis As String = ""
        Dim file As New System.IO.StreamReader("filename.txt")
        Do Until file.EndOfStream
            strA = file.ReadLine
            arrA = strA.Split(" ")
            For b = 0 To arrA.Length - 1
                strB = arrA.GetValue(b)
                If strB.Contains(neededletter) Then
                    TextBox1.Text = TextBox1.Text & strB
                End If
            Next
        Loop
file.dispose()
file.close()

OR from a RichTextBox:

        Dim neededletter As String = "@"
        Dim strA As String = ""
        Dim arrA As Array
        Dim strB As String = ""
        Dim youwanttocopythis As String = ""
        For a = 0 To RichTextBox1.Lines.Length
            strA = RichTextBox1.Lines.GetValue(a)
            arrA = strA.Split(" ")
            For b = 0 To arrA.Length - 1
                strB = arrA.GetValue(b)
                If strB.Contains(neededletter) Then
                    TextBox1.Text = TextBox1.Text & strB
                End If
            Next b
        Next a

(Both are my work)