If you know what you're looking for and where it's at you can use the Mid function.

Code:
        Dim strVar As String = "<title>Google</title>"
        Dim strVal As String = Strings.Mid(strVar, 8, 6)
        MsgBox(strVal)