Immer noch falsch:

select cast(FDFL04 as GRAPHIC(50) CCSID 13488) as FDFL04 ...

Ist die Tabelle/Datei tatsächlich CCSID 1153?

Noch mal der Weg bei SBCS:

DB CCSID 1153 -> Job CCSID 273 -> PC Codepage 1252 -> VB-String (Unicode)

Der Weg bei Unicode (UCS2):

DB CCSID 1153 -> SQL Cast UCS2 -> VB-String (Unicode)

Nun hast du nur noch ein kleines Problem:
a) im VB-Debugger wird der Inhalt nur mit einem SBCS-Font angezeigt, was zu Verlusten der Darstellung führt.
b) Steuerelemente in Formularen haben den Default-Font "MS Sans Serif". Auch dieser ist kein Unicodefont. Ändere hier den Font auf z.B. Tahoma oder Verdana, dann wird Unicode auch korrekt dargestellt.