Dim wraf As RandomAccessFile
wraf.Initialize(File.DirDefaultExternal,"grades.zip",False)
WriteUTF(wraf,decoded)
Sub WriteUTF(raf As RandomAccessFile, s As String)
Dim b() As Byte = s.GetBytes("UTF8")
raf.WriteShort(b.Length, raf.CurrentPosition)
raf.WriteBytes(b, 0, b.Length, raf.CurrentPosition)
End Sub