El problema esq el path de los discos duros tiene un \ al final, por ejemplo, C:\, pero el path de las carpetas no, por ejemplo C:\Carpeta. Para solucionarlo comprueba si el directorio es una unidad o una carpeta viendo su longitud, y sólo si su longitud es mayor de 3 le añades el \. Por ejemplo:
Código [Seleccionar]
If Len(Dir1.Path) = 3 Then
MsgBox Dir1.Path, vbOKOnly, ""
Else
MsgBox Dir1.Path & "\", vbOKOnly, ""
End If