VBA, mid replies with Run-time error 5 (Invalid procedure call or argument)

[MoBo]

I'm strugling with VBA code. I'm quite new at VBA programming. The code below returns an error at line with mid function Scraping from web page works OK (red bold text). I would like to get only part of the text.
Sample of data from web page looks like this:
firstXXXXsecond
Desired result of this VBA should return XXXX to cell C2 on sheet "All".
If I use only variable data without mid line it works Ok, but result is not the one i want.

I would appreciate any hint.

Sub GetData()

Dim IE As Object
Dim part_1 As Integer, len As integer
Dim data As String, data_trimed As String

Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://www.xy.com/a.php?ID_xy_200=1"
IE.Visible = True

While IE.busy
DoEvents
Wend

IE.document.All("input_name").Value = ThisWorkbook.Sheets("All").Range("B2")
IE.document.All("input_name").Select
IE.document.All("trigger").Select

data = IE.document.getElementById("output").innerHTML
part_1 = inStr(data, "first") + 5
len = inStr(data, "second") - inStr(data, "first") - 5
data_trimed = Mid(data, part_1, len)
ThisWorkbook.Sheets("All").Range("C2") = data_trimed

IE.Quit

End Sub

 

[JoeMo]

Here's all the code I use. If i comment mid function it works OK. Otherwise it stops there. I'm testing on sample where mylen is always > 0, otherwise it can return negative as well, and i have to fix that too.

sample of thata from web looks like:

Koda OK (string i need)

Al results but ime2 are OK. Code works only if i comment line with ime2 = mid..
For error i got Run-time error 5 (Invalid procedure call or argument) on ime2 = mid line

Using a negative argument in the Mid function will cause an error.

 

[MoBo]

Using a negative argument in the Mid function will cause an error.

I'm so stupid. All the time negative length was the problem. Thank you for all your time.

I have additional question. How can I send keystroke TAB to IE at
IE.document.All("Code").Value = ThisWorkbook.Sheets("Vsi").Range("B5").Offset(i - 1)

 

[Norie]

That's why I asked in post #2 what the value of len (or mylen) was when you get the error.