You need to check exactly what the new line delimiter is. I have seen vbcr, vblf, & vbcrlf. VbNewLine is the same as vbcrlf.
Also, even if you do have vbcrlf in your string, your test will still fail. vbcrlf is TWO characters. You're testing just one character at a time.
A better test would the InStr() function. This is a quick test to see if a smaller string is anywhere in the larger one. So, your test would look like this:
If InStr(txtD.Text, vbcr) or InStr(txtD.Text, vblf) then
text2.text = 101
End If