VBA Issue - Application.FileDialog return Nothing

Is there something wrong with the lines of code below? It results in the following error.       Sub CountFiles() Dim xFolder As String Dim xPath As String Dim xCount As Long Dim xFiDialog ...