Finding words in huge list!

[gg302]

Hey, i have a textfile hosted on a website which is a huge list (over 2000 lines).
I need to get some data from it but it would take forever for me to manually remove the characthers i dont want, so i tried to use Inet and split the data then place the words i want into a textbox.
I only need the words that are between "furni_" and "_name"
On the list it looks like this
"Furni_*CODE_I_NEED*_name"
this is what i have tried

Private Sub Command1_Click()
Dim StrData As String
Dim Code As String
 
lblStatus.Caption = "Status: Working..."
'Download Source Code As StrData
StrData = Inet1.OpenURL("URL OF THE LIST I NEED TO CHECK")
 
'Find Code That i need
    Code = InStr(StrData, InStr(StrData, "furni_") + Len("furni_"))
    Code = InStr(Code, 1, InStr(1, Code, "_name") - 1)
    Form2.Show
    Form2.Text1.Text = Code
End Sub

Unfortunatly that did not work.

Private Sub Command1_Click()
Dim StrData As String
Dim Code As String
 
lblStatus.Caption = "Status: Working..."
'Download Source Code As StrData
StrData = Inet1.OpenURL("URL OF THE LIST I NEED TO CHECK")
 
'Find Code That i need
    Code = Split(StrData, "furni_")(1)
    Code = Split(Code, "_name")(0)    Form2.Show
    Form2.Text1.Text = Code
End Sub

The above also didnt work

So if anybody can help please post?