Multiple Row Problem

[gyferlotus]

Well I have the following problem:
The first Row of A is like this:
<table border="0" cellpadding="0" cellspacing="0" width="271" height="68"><col width="132"><tr><td valign="top">
</td></tr><tr height="40"> <td class="xl63" style="height: 30pt; width: 99pt;" width="132" height="40"> A1
BLABLABLAABLA173 <-- Upper Part
0BLA <-- Lower Part

I want to read the WHOLE String</td></tr></table>When I try to read the String "BLABLABLAABLA1730BLA"
It says that is doesnt exist, when it actually does...

I know the problem occurs because the string is cutted in 2 parts
BLABLABLAABLA173 AND 0BLA

But how can I search for the whole String? Without a Problem?

Var2 = "[SIZE=2]BLABLABLAABLA1730BLA[/SIZE]"
Rows = 12
Set rng = BaseWks.Range("A1:I" & Rows)
col = 9

On Error Resume Next
found = Application.VLookup(Var2, rng, col, False)
If IsError(found) Then
MsgBox "not found"
Else: MsgBox "Found " & found
End If
On Error GoTo 0

Could Someone Please Help?
How can I read the lower part of the row?

 

[VoG]

Try

Var2 = "BLABLABLAABLA173" & Chr(10) & "0BLA"

 

[gyferlotus]

Thanks VoG!

 

[gyferlotus]

Try

Var2 = "BLABLABLAABLA173" & Chr(10) & "0BLA"

Well Apparently that is not equal to
BLABLABLAABLA173
0BLA

How can I make a String equal to that?

 

[VoG]

You need to identify the character that separates the string Try 13 instead iof 109.

 

[gyferlotus]

It worked now Thanks VoG!