Option Explicit
Dim xRg As Range
Dim xStr As String
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String, xFolderPath As String, xFileExtnFilter As String, xStrData As String
Dim xFileNum As Long
Dim RegExp As Object
Dim xWdApp
Dim xWd

Public Sub DirPathNames()

   
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)

       With xFd
       .Title = "Select the Folder..."
              If .Show = -1 Then 
                xFdItem = xFd.SelectedItems(1)
                txtFolderPath.Text = xFdItem 
              Else
                MsgBox "No Folder Path Selected"
              Exit Sub
              End If
       End With

xFolderPath = txtFolderPath.Text
xFileExtnFilter = "*.PDF"

If Dir(xFolderPath & "\" & xFileExtnFilter) = "" Then
    MsgBox "There are no files of the type:" & vbCrLf & xFolderPath & "\" & xFileExtnFilter
    Exit Sub
  Else
  
  xFileName = Dir(xFolderPath & "\" & xFileExtnFilter)
  
  Do While xFileName <> ""
    LstfileBx.AddItem xFolderPath & "\" & xFileName
    xFileName = Dir
  Loop

 End If

End Sub

Private Sub LstfileBx_Click()

txtFolderPath.Text = LstfileBx.Text
          
 Open txtFolderPath.Text For Binary As #xFileNum
          xStrData = Space(LOF(xFileNum))
          Get #xFileNum, , xStrData
      Close #xFileNum
 txtNoOfPAgesPDF.Text = RegExp.Execute(xStrData).Count
End Sub