Prüfen ob Ordner existiert (im Netzwerk)

ich habe hier folgende Abfrage, die prüft ob ein Verzeichnis existiert:

If tfPfad.Text = "" Then
MsgBox "Bitte Pfad eingeben oder aussuchen!"
tfPfad.SetFocus
Exit Sub
Else
If Dir(tfPfad.Text, vbDirectory) = "" Then
MsgBox "Verzeichnis existiert nicht!" & vbNewLine & "Wählen Sie ein Verzeichnis aus!", Buttons:=vbExclamation, Title:="Verzeichnis existiert nicht!"
tfPfad.SetFocus
End If

Nun funktioniert sie schön und gut, aber nur wenn ich einen lokalen ordner eingebe. Sobald ich ein Netzwerkordner eingebe (der nicht existiert, z.B. \\NTSERVER\temp) dann kommt folgender fehler:

Laufzeitfehler 52: Dateiname oder -nummer falsch