如何打开文件名选择框?

好学

在ACCESS中打开文件名选择框用下面代码就可以了,但在VB应该如何写呢?
    Dim FileName As String
    Dim Result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "文件名称"
        .Filters.Add "文件", "*.TXT"
        .AllowMultiSelect = False
        .InitialFileName = App.Path & "\ABC"   
        Result = .Show
      End With

crg770502

引用Microsoft Common Dialog Control控件

With CommonDialog1
        .DialogTitle = "文件名称"
        .Filter = "文本文件(*.txt)|*.txt"
        '.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt"
        .FileName = App.Path
        .ShowOpen
End With