Ok what it's suppose to do is look at a file, if the file contains 11 charcters then write the first 5 to label1.caption, if it contains 10 charcters write the first 4 to label1.caption.

Dim sfirst
Open "\flag\ini\session1\mon.ini" For Input As #9
Line Input #9, sfirst
if sfirst = left(sfirst, 11) then
label1.caption = left(sfirst, 5)
close #9
else
label1.caption = left (first, 4)
close #9
end if