I used this code to convert server to UNICODE.
Still the same error.

test=thisform.txtserver.value
server=StrConv(StrConv(test+ Chr(0), 1), 5)

The fileID I get as follows
*-- Extract the ID for this file.
* This ID is generated when the file is opened and
* can be used as parameter for the NetFileGetInfo
* Win32 API function.
lnID = GetMemoryDWORD(lnpFileInfo)