Vb6: check if textbox contains multiple values

I have this text inside textbox:
----------------
Vary: Accept-Encoding
Keep-Alive: timeout=5, max=99
Connection: Keep-Alive
----------
i need to get msgbox when max=2 , but it show msgbox when textbox show max=20

this code not working, please help

If InStr(text1.text, "max=2" & "Connection: Keep-Alive") Then
MsgBox "done"
End If