Visual Basic - Eliminar última linea en blanco fichero txt

Hola, recurro a vosotros ya que tengo un problema del cual no puedo salir y comienzo a desesperar
Resulta que tengo un fichero txt creado con Visual Basic. Este fichero tiene un texto y al final tiene una línea en blanco que quiero eliminar desde codigo sin tener que abrir el fichero a mano. El fichero que tengo es de modo:
aaaaa
bbbbb
cccccc
------------>Linea en blanco a eliminar

Por favor echadme una mano.
Pd: El fichero lo he creado utilizando "Print" y en el momento que ya ejecutar "Print" una vez ya te crea la línea en blando.

Muchas Gracias.

Hola nose si este ejemplo te ayude, lo realice leyendo un archivo y luego generando otro, si te fijas, utilizando el objeto FileSystemObject, el codigo queda de esta forma, solo tendras que colocar la ruta donde este tu archivo, de todos modos pruebalo, te coloco dos ejemplos y espero te sirva de ayuda:

Sub LeeryEscribir()
Dim ArchivoSistema, Carpeta, ArchivosCarpeta, Archivo, AbrirArchivo, contador
Dim Linea()
Set ArchivoSistema = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ArchivoSistema.GetFolder("C:Documents and SettingsDaivinsonEscritorio")
Set ArchivosCarpeta = Carpeta.Files

'Se recorre la coleccion de los archivos
For Each Archivo In ArchivosCarpeta

If Archivo.Name = "prueba.txt" Then
'Abrir el Archivo para la lectura correspondiente
Set AbrirArchivo = Archivo.OpenAsTextStream(1)
'El archivo lo abro y guardo cada linea en un vector
Do While AbrirArchivo.atendofline = False
contador = contador + 1
ReDim Preserve Linea(contador)
Linea(contador) = AbrirArchivo.ReadLine

Loop
'Se cierra el archivo el Archivo
AbrirArchivo.Close
Set AbrirArchivo = Nothing
End If

Next 'Archivo
Set CrearArchivo = ArchivoSistema.CreateTextFile("C:Documents and SettingsDaivinsonEscritoriootraprueba.txt", True)
For i = 1 To contador
CrearArchivo.Writeline Linea(i)
Next i
Set CrearArchivo = Nothing
Set ArchivosCarpeta = Nothing
Set Carpeta = Nothing
Set ArchivoSistema = Nothing

End Sub

'*****************************************************************************************
'Aquí esta el otro ejemplo:
Sub otroejemplo()

Open "C:Documents and SettingsDaivinsonEscritoriootraprueba.txt" For Input As #1

'Luego se tiene que leer con

Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
Loop
Close #1


End Sub