Visual Basic - Pregunta sencilla de If..Else

Hola amigos..tengo un rompecoco con un procedimiento que me parece sencillo pero que no me da los resultados que quiero..

Tengo una variable que se llama DirDestino, la cual almacena una cadena con la direccion de un directorio p.e. "c:\basededatos\directorio\españa

sfilename1 : variable que me indica una parte de la cadena de Dirdestino (c:\basededatos)

nombrelugar : Variable que me indica un nombre de lugar que va a ser la otra parte de la cadena que formara a Dirdestino, es decir "España".
Las dos variables anteriores forman a dirdestino.

Lo que necesito es que me indique si existe y si existe me muestre el contenido en un control list.
sino existe entonces me deje el control list en blanco,
para eso tengo el siguiente codigo :

If Dir(dirdestino) <> dirdestino then
dirdestino = sfilename1 & "fotos_videos\" &nombrelugar & "\"
let file1.path = Dirdestino

else
let file1.path = ""
label1.caption = "No hay directorio"
end if

Que tengo mal... por que no me da lo que necesito..

Atm groval

El comando Dir y la comparación es case sensitive, por lo cual tenés que tener en cuenta que deben estar ambas cadenas convertidas a mayúculas o a minúsculas
Otra cosa , la Propiedad Path del Objeto File es string y se declara literalmente sin instanciarla con Let o Set
Este sería más o menos el ejemplo que vos mandaste, yo sólo modifiqué el nombre de las variables para que se entendiera mejor su contenido, nada más. Espero que te sirva

Private Sub Command2_Click()
Dim sPath As String 'sfilename1
Dim sFolder As String 'nombrelugar
Dim sDirdestino As String 'Dirdestino
sPath = "c:\Windows\"
sFolder = "System32"
sDirdestino = sPath & sFolder

If UCase(Dir(sDirdestino, vbDirectory)) = UCase(sFolder) Then
MsgBox "El Directorio existe"
File1.Path = sDirdestino
Else
MsgBox "No hay directorio existente"
File1.Path = ""
End If

End Sub

Muchas gracias...Me sirvio ...!!