File Path Validation Check

Dim InitialFilePath As String = "The initial file path to check"
        Dim fso As System.IO.File
        Dim direct As System.IO.Directory

        Try
            If fso.Exists(InitialFilePath) Then
                'File is valid and exists
            Else
                Dim arrHold() As String
                Dim strReconstructed As String

                arrHold = InitialFilePath.Split("\")
                If UBound(arrHold) > 0 Then
                    arrHold.Reverse(arrHold)
                    strReconstructed = arrHold(UBound(arrHold)) & "\"
                    If direct.Exists(strReconstructed) Then
                        While direct.Exists(strReconstructed & arrHold(UBound(arrHold) - 1) & "\")
                            strReconstructed += arrHold(UBound(arrHold) - 1) & "\"
                            ReDim Preserve arrHold(UBound(arrHold) - 1)
                        End While

                        OpenFileDialog1.InitialDirectory = strReconstructed
                        OpenFileDialog1.ShowDialog()
                    Else
                        'Root directory isn't valid
                    End If
                Else
                    'Blank Value passed (should have been validated previously)
                End If
            End If
        Catch ex As WhateverYourFavoriteExceptionsAre

        Finally
            fso = Nothing
            direct = Nothing
        End Try

Private Sub Command1_Click()
On Error GoTo EHandler
Dim path As String
path = "C:\NonExistant.NoExt"
Shell path, vbNormalFocus

Exit Sub

EHandler:
If Err.Number = "53" Then
MsgBox "File Not Found!", vbOKOnly, "Error:"
CommonDialog1.ShowOpen
path = CommonDialog1.FileName
Shell path, vbNormalFocus
Else
MsgBox Err.Number & " || " & Err.Description, vbOKOnly, "Error:"
End If

End Sub

set fs = CreateObject("Scripting.FileSystemObject")
if fs.fileexists(filename) then
 msgbox "file is existing"
else
 commondialog1.showopen
 filename = commondialog1.filename
end if