一段VBA代码，帮忙看看哪出了问题？？

Dim filename As FileDialog
Set filename = Application.FileDialog(msoFileDialogSaveAs)
With filename
.InitialFileName = CreateObject("shell.application").namespace(5).self.Path & "\" '获取我的文档路径
MsgBox .InitialFileName
.Show
End With
MsgBox filename.InitialFileName
这段代码第一次MSGBOX 可以返回正确的我的文档路径，第二次MSGBOX也就是在另存为对话框保存之后..InitialFileName变成“网络\"这是什么鬼？
还有就是Application.FileDialog(msoFileDialogSaveAs)怎么判断用户点击了取消？？
谢谢！！！

Select Case KeyCode
Case 37
i = Index - 1
If i \ 3 <> Index \ 3 Then i = i + 3
Text1(i).SetFocus
Case 38
i = Index - 3
If i < 0 Then i = i + 9
Text1(i).SetFocus
Case 39
i = Index + 1
If i \ 3 <> Index \ 3 Then i = i - 3
Text1(i).SetFocus
Case 40
i = Index + 3
If i > 8 Then i = i - 9
Text1(i).SetFocus
End Select
End Sub

将第8行的条件判断句中的“＝”号，改为“like”