Quellcode anpassen

ich habe eine "DO CASE" Anweisung und möchte für jeden Fall prüfen ob ein bestimmtes Verzeichnis existiert.

Sub ORdnerDa()
Dim test As string
wert = ActiveCell.Value

test = VerzDa("D:\Eigene Dateien\" & wert & "\)
End Sub

Function VerzDa(str As String)
On Error GoTo fehler
ChDir (str)
VerzDa = True
Exit Function
fehler:
MSgbox "BLA BLA BLA"
End Function

Ich bin totaler Anfänger ... Ich muss in jedem CASE zunächst prüfen ob das Verzeichnis existiert, hierzu muss ich also als erstes die Funktion "VerzDa" aufrufen. Falls das Verzeichnis schon existiert soll eine Msgbox eingeblendet werden, falls nicht soll im ELSE Zweig weitergemacht werden.

Wie setzte ich das um ???

Danke

Nico