Visual Basic - ME AYUDAN CON LOS COMODINES !!!

La siguiente Sub rutina me busca un teto dentro de una carpeta en cualquier unidad, lo que necesito es saber que lineas modificar y como para que me busque cualquier palabra dentro de una base de datos y/o cualquier tipo de archivo de cualquier unidad. Ej. ??as??? o ???tr*
Gracias a Todos.

Private Sub cmdElegir_Click()
On Error GoTo errArch
Dim Archivo As String, Ruta As String, sLinea As String
Dim Linea As Long, CantArch As Long, CantFound As Long
Dim Result As Long
If txtBuscar = "" Then MsgBox "Debe especificar qué buscar": Exit Sub
Ruta = Dir1.Path
'Le agrego el '\' si no lo tiene
CantArch = 0
CantFound = 0
Resultado = ""
If Right(Ruta, 1) <> "\" Then Ruta = Ruta & "\"
Archivo = Dir(Ruta, vbHidden Or vbReadOnly Or vbSystem) 'Devuelve el primer archivo del directorio
While Archivo <> ""
Inc CantArch 'Incrementa en 1 la variable
Open Ruta & Archivo For Input As #1
Linea = 0
ProgressBar1.Value = 0

Do Until EOF(1) 'Lee POR LINEAS el archivo y busca
Inc Linea
Line Input #1, sLinea
ProgressBar1.Value = CantArch * 100 / File1.ListCount
If chkCaseSensitive.Value = 1 Then
Result = InStr(1, sLinea, txtBuscar, vbBinaryCompare)
Else
Result = InStr(1, UCase(sLinea), UCase(txtBuscar), vbTextCompare)
End If
If Result <> 0 Then 'Se encontró !
Inc CantFound
Found Archivo, Linea
Exit Do 'Deja de buscar en ESTE archivo
End If
Loop