Dateipfad kontrolle

Ich lasse in einer Listbox alle Dateien eines Verzeichnisses wiedergeben. In einer Textbox muss man das Verzeichnis eingeben. Ich will jetzt verhindern, dass das in der Textbox angegeben Verzeichnis nicht falsch ist. Z.B durch eine Meldung.

Wie geht das? Danke

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Pfad = ThisWorkbook.Path
Wname = ThisWorkbook.Name
datei1 = Dir(Pfad & "\*.xls")
Do Until datei1 = ""
If datei1 <> ThisWorkbook.Name Then
ListBox1.AddItem datei1
End If
datei1 = Dir
Loop
TextBox1.Value = ThisWorkbook.Path
End Sub