Thanks for sharing your answer user 0010! You made my day! There was one slight error in the code that needed to be fixed. The GetBlobData function was chopping one byte off the end of the BLOB field because the intFinish variable is set to intBlobLen - 1 but the second parameter of GetBlobData is the number of bytes of data to retrieve. So, I added 1 to intFinish in the GetBlobData function call.

Code:
    Dim intBlobLen As Integer = Convert.ToInt32(Row.ProjectDescription.Length)
    Dim intFinish As Integer = intBlobLen - 1

    Dim bytBlob(intFinish) As Byte
    bytBlob = Row.ProjectDescription.GetBlobData(0, intFinish + 1)

    Dim strBlob As String = System.Text.Encoding.Unicode.GetString(bytBlob)
    strBlob = RemoveHTML(strBlob)

    If strBlob.Length > 0 Then
        Row.ProjectDescription.ResetBlobData()
        Row.ProjectDescription.AddBlobData(System.Text.Encoding.Unicode.GetBytes(strBlob))
    End If
If you wanted to simplify the code a bit, you could get rid of the intFinish variable and write it like:

Code:
    Dim intBlobLen As Integer = Convert.ToInt32(Row.ProjectDescription.Length)

    Dim bytBlob(intBlobLen - 1) As Byte
    bytBlob = Row.ProjectDescription.GetBlobData(0, intBlobLen)

    Dim strBlob As String = System.Text.Encoding.Unicode.GetString(bytBlob)
    strBlob = RemoveHTML(strBlob)

    If strBlob.Length > 0 Then
        Row.ProjectDescription.ResetBlobData()
        Row.ProjectDescription.AddBlobData(System.Text.Encoding.Unicode.GetBytes(strBlob))
    End If
Or, if you really wanted to condense the code and get rid of all the variables besides strBlob you could write it like:

Code:
    Dim strBlob As String = System.Text.Encoding.Unicode.GetString(Row.ProjectDescription.GetBlobData(0, Convert.ToInt32(Row.ProjectDescription.Length)))
    strBlob = RemoveHTML(strBlob)

    If strBlob.Length > 0 Then
        Row.ProjectDescription.ResetBlobData()
        Row.ProjectDescription.AddBlobData(System.Text.Encoding.Unicode.GetBytes(strBlob))
    End If