お世話になります。
このVisial Basic中学校の入門講座の第5回分の

5.応用

の手順4.についての質問なのですが、
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim FolderName As String
        FolderName = Environment.GetEnvironmentVariable("WINDER")

        txtOpenFileName.Text = FolderName & "￥" & Dir(FolderName & "￥*.bmp")

    End Sub
（￥が全角なのは打つと\と表示された為です。）
とプログラムをするとWindowsフォルダからbmpファイルを探して最初に見つかったファイルの名前を表示する。
と書かれているのですが、デバックするとtxtOpenFileNameという値にしてあるテキストボックスに￥と、txtSaveFileNameという値にしてあるテキストボックスに￥.jpgとだけ表示されて出てくるのですが、
この講座に書かれてある通りファイル名が表示されるようにするにはどうすれば良いのでしょうか？

宜しくお願いします。