如何在vb.net中创建一个随机的Unicode或UTF-8文件？

Imports System.IO
Imports System.Text

Private Function GenerateRandomString(length As Integer) As String
    Dim random As New Random()
    Dim sb As New StringBuilder()

    For i As Integer = 0 To length - 1
        ' 生成一个随机的Unicode字符范围（U+0000至U+FFFF）
        Dim unicodeValue As Integer = random.Next(&H10000)
        Dim unicodeChar As Char = Convert.ToChar(unicodeValue)
        sb.Append(unicodeChar)
    Next

    Return sb.ToString()
End Function

Private Sub CreateRandomUnicodeFile(filePath As String, fileSize As Integer)
    ' 创建一个使用UTF-8编码的文件流
    Using writer As New StreamWriter(filePath, False, Encoding.UTF8)
        ' 写入随机生成的Unicode或UTF-8字符串，直到文件达到指定大小
        While writer.BaseStream.Length < fileSize
            Dim randomString As String = GenerateRandomString(1024)
            writer.Write(randomString)
        End While
    End Using
End Sub

Dim filePath As String = "C:\Path\To\Your\File.txt"
Dim fileSize As Integer = 1024 * 1024 ' 1 MB

CreateRandomUnicodeFile(filePath, fileSize)