Eliminar último salto de línea de un string

Dim str As String = getTipoDoc(txtResumen)
        If str.EndsWith(vbCrLf) Then
            Dim oTrim() As Char = {vbCr, vbLf}
            str = str.TrimEnd(oTrim)
        End If

fuente