how to grab every word that has the ! in it "good rating for answer"

how would I grab all that words with the ! in it and put them in text1 using the webbrowser control

the webpage look like

hi! other!then go to be and yes!


so I would want text1 to look like
hi!
other!then
yes!

Code:

---

    Dim Str As String
    Str = "hi! other!then go to be and yes!"
    If InStr(Str, "!") <> 0 Then
        Text1.Text = Join(Filter(Split(Str, Space(1)), "!"), vbNewLine)
    End If

---

No I want it to grab the text off what in webbrowser1 , so at let say www.mysite.com I want to read that webpage and if any thing with the ! in it to put in text1

Quote:

---

Originally Posted by jcis

Code:

---

    Dim Str As String
    Str = "hi! other!then go to be and yes!"
    If InStr(Str, "!") <> 0 Then
        Text1.Text = Join(Filter(Split(Str, Space(1)), "!"), vbNewLine)
    End If

---

---

so read the source into a string Str

Code:

---

Dim Str As String
    Str = Inet1.OpenURL(Text1.Text)
    If InStr(Str, "!") <> 0 Then
        Text2.Text = Join(Filter(Split(Str, Space(1)), "!"), vbNewLine)
    End If

---

Add an inet control onto your form. Taken from jcis's code etc.