Hi Doogle, it works very well thanks for your big help, but there is some mistake in your module generator script, in this line:
Code:
Print #intFileOut, "        Translate = Translate & Chr(EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1))))"
it should be:
Code:
Translate = Translate & EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1)))
as your post above it.

I've tested the function as below:
Code:
Private Sub cmdConnect_Click()
con.Connect
cmdConnect.Visible = False
SetUpTranslate
strEBCDIC = Chr(240)
test = Translate(strEBCDIC)
End Sub
And returned character 0, (hex F0 in EBCDIC)

I think this post is resolved. Thanks for the simplest solution from Doogle.