Add the XLS file as a custom resource file to your VB6 project then use this line (if resource file is 101)...
LoadDataIntoFile 101, "c:\filename.xls"
with this routine..
Public Sub LoadDataIntoFile(DataName As Integer, filename As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(filename) = "" Then
myArray = LoadResData(DataName, "CUSTOM")
myFile = FreeFile
Open filename For Binary Access Write As #myFile
Put #myFile, , myArray
From VB6, this will place your added XLS resource file into whatever destination you assign (ie."c:\filename.xls"). You can set up your VB6 project to add this file during execution then remove this file before project closing. The file is then only available as an exe. HTH. Dave