各位高手：
         我用fso 创建了一文件夹，在inputbox 里面输入 文件夹名字的时候，发现当输入汉字的时候，显示的是乱码，例如 我输入“糊涂”，在inputbox 里面显示的是乱码，但是在 硬盘上显示的是正常 的，请问这是怎么回事？该怎么解决？另外在输入字母和数字是正常的。
         谢谢各位！不胜感激！
Option Explicit
Dim fso As New FileSystemObject
Dim txtfile As TextStream

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command1_Click()
Dim txtfolder1 As Folder
Dim foldername As String
On Error Resume Next
foldername = InputBox("请输入工程名称", "请输入")
If fso.FolderExists(foldername) Then
   MsgBox "要创建的文件夹已存在!", vbOKOnly, "警告"
Else
   Set txtfolder1 = fso.CreateFolder(Dir1 & "\" & foldername)
   w = txtfolder1 & "\" & foldername
   'Wt = foldername
   
End If
'Debug.Print w
Me.Hide
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub