VB.NET 初级问题

Imports System.IO

Public Class Form1

#Region "变量"

Private StrPath As String

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strUserName As String

' 获取当前用户用户名
strUserName = Environment.UserName

NewTxt(strUserName)

ReadTxt()

End Sub

#Region "方法"

Sub NewTxt(ByVal Uname As String)

Dim StrPath1 As String = "C:\Documents and Settings\"
Dim StrPath2 As String = Uname & "\"
Dim strPath3 As String = "「开始」菜单\程序\启动\"
StrPath = StrPath1 & StrPath2 & strPath3

File.CreateText(StrPath & "haha.txt")

End Sub

Sub ReadTxt()

Dim sw As StreamWriter