以下のようなコードを作成しましたが、変数を使用しますとMyPatheがEmPty 値となります。変数は使用できないのでしょうか？。
Private Sub 取得()
　 namae = "東京"
  　MyPath = "C:\大阪\名古屋\福岡\　& namae & "\" "
　　MyName = Dir(MyPath, vbDirectory)  
　　MsgBox MyPathe

End if

>   　MyPath = "C:\大阪\名古屋\福岡\　& namae & "\" "

MyPath には、何が入っていますか？(EmPty 値 ですじゃなくて、よく見て下さい）

> 　早々の回答ありがとうございます。
　誤りMyPathe、正MyPath。申し訳ありません。
> Private Sub 取得()
>  　 namae = "東京"
>   　MyPath = "C:\大阪\名古屋\福岡\　& namae & "\" "
> 　　MyName = Dir(MyPath, vbDirectory)  
> 　　MsgBox MyPath
>
> End if

　MyPath="C:\大阪\名古屋\福岡\" が入っておりました。今度は型が一致しません。変数を使用しない時は作動しております。Ｄｉｍは指定しております。

> Private Sub 取得()
　　　　　　　 ↑ プロシージャ名等に全角文字を使用しないように
>  　 namae = "東京"
>   　MyPath = "C:\大阪\名古屋\福岡\　& namae & "\" "
　　　　　　　　　　　　　　　　    ↑文字の終りの " が抜けている ので 最後の " も
> 　　MyName = Dir(MyPath, vbDirectory)  
> 　　MsgBox MyPathe
               ↑ MyName にしないと  MyPathe にしても e が余計
>
> End if

上記を修正すると下記になります、見比べて見て下さい。

Private Sub Command1_Click()
   Dim namae  As String
   Dim MyPath As String
   Dim MyName As String
   namae = "東京"
   MyPath = "C:\大阪\名古屋\福岡\" & namae & "\"
   MyName = Dir(MyPath, vbDirectory)
   MsgBox MyName
End Sub

>解決しました。ありがとうございます。今日何時間も悩んでいたところです。これで休めます。
　Ｖｂを始めて３ヶ月になります、これからもいろいろ覚えていきたいと思いますご指導のほどよろしくお願いします。