Buscar archivo jpg en subcarpetas

Hola, tengo un image1.picture al cual le añado una imagen previamente buscada con un buscador, en mi caso coloco un numero en un textbox y al presionar enter si es que esta, es colocada en el image1.picture, mi consulta radica en que no puedo hacer que busque dicha imagen en subcarpetas, me podrías decir como hacer para que busque en una subcarpeta? Desde ya muchas gracias

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'Directorio hacia la imagenes
Dire = "C:\"
'Extención de las imágenes
ext = ".jpg"
'Establecer la prueba de error
On Error Resume Next
'cargar la imagen
Me.Image1.Picture = LoadPicture(Dire & Me.Text1 & ext)
Call Form_Resize
Text1 = ""
'validar error
If Err.Number = 53 Then
MsgBox "La imagen no existe"
Text1 = ""
Else
End If
End If
End Sub

supongamos que yo tengo una foto llamada "001.jpg" en el disco C, si coloco ese numero (001) en el textbox y al presionar enter la carga al image1.box, pero si dicha imagen esta en la carpeta "fotos", no la encuentra