Bottom line of textbox

I am trying to see if the bottom line of the textbox contains a string, I know that the following will tell me if the textbox contains "a" but how do I narrow it down to just the last line?

Code:

---

If InStr(LCase(Text1), "a") > 0 Then
        MsgBox "Label contains <a> character."
    End If

---

Thanks

are your lines separated by anything like new lines or anything as such? or is it simply just a straight paragraph and you need the last line?

You could always split up the the entire text string by either periods or the newlines, and search through the last one for the character your after.

This should be simple enough.

Code:

---

Private Sub Command1_Click()
    Dim pos As Integer
    pos = InStrRev(Text1.Text, vbNewLine)
    If pos = 0 Then
        MsgBox "The last line is: " & Text1.Text
    Else
        MsgBox "The last line is: " & Mid(Text1.Text, pos + 2)
    End If
End Sub

---