[Resolvido]Abrir minhas imagens através de um botão no formulário

Boa noite, galera!
Uma dúvida relativamente simples, mas não pra mim!
Tenho um "formulário cadastro" e um botão que quando clicado eu preciso que ele abra a tela minhas imagens do Windows!
Pode ser?
Grato pela paciência!

Olá,

Insira a função abaixo em um módulo:

Código:

Public Function PastaSistema(NumPasta As Integer) As String
    
    Dim objFSO As Object
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFolderItem As Object
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace((NumPasta))
    If objFolder Is Nothing Then
        PastaSistema = ""
    Else
        Set objFolderItem = objFolder.Self
        PastaSistema = objFolderItem.Path
    End If
    
End Function

E no código do botão:

Código:

Shell "Explorer.exe " & PastaSistema(39), vbNormalFocus

Carinha, Na mosca...
Magnífico. Exatamente isso!

Valeu, muito obrigado!

Nada...