VB 代码问题

请个位帮帮忙，看看这段代码有神吗问题啊    老是溢出错误怎么办？
Private Sub wmp1_OpenStateChange(ByVal NewState As Long)

Form1.wmp1.currentPlaylist.Clear
Dim f As Long
MyPath = "D:\酷我缓存\*.wma" ' 指定路径。
myname = Dir(MyPath, vbDirectory) ' 找寻第一项。
Do While myname <> "" ' 开始循环。
  ' 跳过当前的目录及上层目录。
  'MsgBox myname
    
  ' Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\%E4%B8%80%E5%89%AA%E6%A2%85.wmp")
  Form1.wmp1.currentPlaylist.appendItem Form1.wmp1.newMedia("D:\酷我缓存\" & myname)
    
  myname = Dir ' 查找下一个目录。
Loop
wmp1.Controls.play
End Sub

myname = Dir(MyPath, vbDirectory) ' 找寻第一项。--->myname = Dir(MyPath)

补充：VB ,  网络编程