There are probably more elaborate ways to do this, but itsuch a pain typing on this tiny screen, so I'll offer this:
Function GetSnippet(string src, int maxlen) As String
{
Dim temp As New System.Text.StringBuilder();
Dim words() As String = src.Split(new char() { ' ' });
For i As Integer = 0 words.Length - 1
If temp.Length + words[i].Length < maxlen Then
temp.Append(words(i) & " ")
Else
Return temp.ToString().Trim()
End If
Next
Return temp.ToString().Trim()
End Function