用VB通过文件名打开指定文件夹下EXCEL文件
在一个VB程序中，有一个TEXT文本框和一个COMMAND1按钮，现在通过在TEXT文本框中输入EXCEL文件的部分文件名（也就是所有的文件名前8位数字，是唯一的），点击确定按钮来打开文件，文件在一个大的文件夹里面（内部有子文件夹），应该怎么来写相应的代码，请各位帮忙，谢谢！我不会写查找的代码
Private Sub CmdOK_Click()
If TextPoNum.Text = "" Then
MsgBox "请输入你需要打开的EXCEL文件！"
Else
Dim oleExcel As Object
Dim PoNum As String
Set oleExcel = CreateObject("Excel.Application")
oleExcel.Visible = True
oleExcel.Workbooks.Open FileName:="这里不知道怎么写"
End If
End Sub
