Problema call shell

[0-c00l]

Salve, ho questi codici per aprire una cartella:

 Dim PercorsoProgrammi As String = Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
        Dim cartella As String
        cartella = PercorsoProgrammi & "\mia_cartella\screenshot"
        if  Directory.Exists(cartella) Then
            Call Shell("Explorer.exe" & cartella, vbMaximizedFocus)
        End If

Il problema sorge al call shell, non so come fargli capire che cartella è la path della cartella da aprire..