Eliminar la última línea en blanco dentro de una cadena

Tengo una cadena que contiene muchas filas de datos que se han convertido de una tabla de datos. La última fila de mi cadena no tiene nada dentro, ni espacios ni nada. ¿Cómo puedo deshacerme de esta fila? He intentado expresiones regulares, pero parece que no puedo obtener nada que haga el trabajo. Estoy escribiendo en VB.

Código tal como está:

Dim objSW As StreamWriter
Dim merRersult As String
Dim objSW As StreamWriter

Dim objFS As New FileStream(path, FileMode.CreateNew)
objFS.Close()
objSW = New StreamWriter(path, True)
merRersult = Delta.Utilities.Convert.DataTableToCSV(dt, True, sep)

'Write out mer file
 Dim merResultNoLines As String
 merResultNoLines = Regex.Replace(merRersult, "^\r?\n?$", "")


 objSW.WriteLine(merRersult)
 objSW.Close()

Gracias por adelantado