Function WriteString2(file,str$) For i = 1 To Len(str) WriteByte(file,Asc(Mid(str,i,1))) Next EndFunction