function ctb(byval zahl as integer) as string
 
dim i as integer = 15
for i = 15 to i = 0 Step 1
ctb = CStr((zahl and 2 ^ i) / 2 ^ i) & ctb
next
edn function

dim clsData as new clsData()
dim temp as string
temp = clsData.ini_file

dim clsData as new clsData()
dim temp as string
temp = clsData.ini_file

Mfg

Michael