一个写文件的很奇怪的有关问题，求教

一个写文件的很奇怪的问题，求教！
一段函数，作用是写一个log文件，语句如下：
logwrite   =   File.AppendText(logFile)     '打开一个写文件流，追加写入文字
logwrite.Write(text)                                   'text是字符串变量，存放要写的log内容logwrite.close()                                           '写完后关闭此文件流

现在发现一个问题，此函数在其他代码中都可以正常执行，但是如果放在：
dim   r   as   DialogResult
r=OpenFileDialog1.ShowDialog()
之后，就会发生写不进东西的情况，语句单步跟踪确认是执行的，也没有出错信息，但就是不写东西进去。怎么回事？

又作了测试，如果将此函数放在上面那两句打开文件对话框语句之前，写文件一切正常。放在对话框语句之后的话，如果在打开文件对话框后，按了取消键，写文件也正常。就是选了文件，按确定后再执行写文件操作，就没有任何效果了。

百思不得其解，求高人相助。

------解决方案--------------------
OpenFileDialog1.ShowDialog()会改变System.Environment.CurruntDirection