VB 超初心者のTAROです
入門講座第５回，５応用のとおりに入力し，C:\WINDOWS\ABC.BMP
と表示されました。
　そこでC:\AAA\BBB\CCC\ABC.BMPを置き，
実行すると　\　としか表示されません。
　自分が知りたいのは，
例えば　D:\AAA　に実行プログラムを置き，数階層下のBMPのフルパス（ファイル名まで）を
取得したいのです。
D:\AAA\BBB\CCC\AIUEO.BMP　または，D:\AAA\DDD\CCC\KAKIKUKEKO.BMP
のように，AAAフォルダの下のフォルダ名はいろいろと変わり，BMPのファイル名も変わります。
　上記目的のため，入門講座第５回，５応用　で，これでできるかと思いましたが，うまくいきませんでした。
どなたかご教授いただけないでしょうか。よろしくお願いします。
TARO

使用環境
VB2008 Express Edition .NET3.5
XP SP2 です


Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim FolderName As String
        'TxtOpenFileName.Text = ""
        FolderName = Environment.GetEnvironmentVariable("C:\AAA\")
        TxtOpenFileName.Text = FolderName & "\" & Dir(FolderName & "\*.bmp")
        'Me.Close()
    End Sub
End Class