Dim bText() As Byte = System.Text.Encoding.Unicode.GetBytes("Text")
Dim iCount As Integer = System.Text.Encoding.Unicode.GetByteCount("Text")
Dim File As IO.Stream = IO.File.Create(FileName, iCount, IO.FileOptions.None)
File.Write(bText, 0, iCount)
File.SetLength(1000) 'Unwichtig...
File.Close()