Visual Basic - Probema con Cadena Vacia VB6.0

Estimados tengo el siguiente problema con Visual Basic 6.0, estoy desarrollando una aplicación en la que leo un archivo de texto que contiene 5 columnas y n filas separado por espacios, sin embargo la columna 5 en algunas filas tiene datos de texto y en otras esta vacía, al ejecutar la aplicación el archivo resultante me entrega la última fila vacía y me aparece un mensaje de error 9.

A continuación les dejo una parte del código, la idea es que reconozca los datos de la fila 5 y los refleje en el archivo resultante.

Line Input #1, Cadena
Cadena = Split(Cadena, “ ”)
a = (Cadena(0))
x = Val(Cadena(2))
y = Val(Cadena(1))
z = Val(Cadena(3))
b = (Cadena(4))

De ante mano muchas gracias por su ayuda.

Consulta resuelta por el usuario ERBUSON de canal viasual basic .net
Gracias.

Supongo que esto te valdrá:

'Entiendo que el fichero es algo parecido a esto:

' "Patatas Azucar Naranjas Rojo Melon"
' "Patatas Azucar Naranjas Azul Melon"
' "Patatas Azucar Naranjas Melon"

'Y que la línea que te da problemas sería similar a la ultima


'Elimino los " " excepto los que separan los campos
While InStr(Cadena, " ") <> 0
Cadena = Replace(Cadena, " ", "")
Wend

lst = Split(Cadena, " ")

cont = 0
For Each aux In lst()
cont = cont + 1
Next aux

If cont = 5 Then
'No hay ningún campo vacio
a = lst(0)
x = Val(lst(2))
y = Val(lst(1))
Z = Val(lst(3))
b = lst(4)
Else
'Hay un campo vacio
a = lst(0)
x = Val(lst(2))
y = Val(lst(1))
Z = Val(lst(3))
b = ""
End If