public function GetLine (cTextBox as textbox,line as integer ) as string
dim variante as variant
variante = Split(cTextBox.text, vbNewLine)
if ubound(variante) < 4 then
GetLine = "0"
else
GetLine = variante(4)
end if
end function
Estoy en linux no tengo el visual basic para probarla si tiene algun error perdón