vbs显示语句未结束，怎么改？

Question

' 引用必要的库
Imports System.IO

' 定义文件路径
Dim filePath As String = "C:\Users\coco\Desktop\huiyi.txt"

' 打开文件并读取内容
Dim fileContent As String
fileContent = ReadFile(filePath)

' 将内容复制到剪贴板
Clipboard.SetText(fileContent)

' 读取文本文件内容函数
Function ReadFile(filePath As String) As String
Dim fileStream As StreamReader = New StreamReader(filePath)
Dim content As String = fileStream.ReadToEnd()
fileStream.Close()
Return content
End Function

Answer 1

vbs？你这个是VB.NET的代码，而且，还有几行代码写在了函数外面，VB.NET必须全部代码写在类或者模块里面。