exibir foto por parte do nome

Boa tarde amigos, estou com o seguinte problema: tenho um formulário que tem como objeto de origem uma consulta, quando eu abro esse formulário ele exibe dados de uma pessoa, o que eu quero é que na parte da foto que vai ser exibida no formulário ele exibisse apenas usando como critério uma parte do nome do arquivo que está em uma pasta. Para ser mais específico nessa pasta possui todas as fotos que estão nomeadas com o número do código e o nome da pessoa: Exemplo:
123 - João Alves
245 - Maria Rodrigues

O que eu quero é que no formulário ele captasse a foto apenas pegando o número ignorando o nome.

Estou tentando usar o código abaixo, mas não tá dando certo. Foi uma adaptação que fiz do que li a respeito de manipulação de arquivos no ACCESS:
Private Sub Form_Current()

If IsNull(Código) = False Then
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim past As Scripting.Folder
Set past = fso.GetFolder("C:\Fotos\")
Dim part As String
part = Me.Código

Dim actFile As File

For Each actFile In past.Files
If LCase$(Mid$(actFile.Name, 1, Len(part))) = LCase$(part) Then

Me.Imagem18.Picture = "C:\Fotos\" & part & ".jpg"
Exit For
End If
Next
Else


Me.Imagem18.Picture = ""
MsgBox "Esse escritor não possui foto arquivada", vbExclamation

End If