Function file(file as String) as String
 Open file for Input as #f 
 Dim dat = Get $f, , ,99999
 return dat
End Function