Escoger imagen al azar de 1 carpeta y mostrarla

[Spike_ak]

Código:

Private Sub cmdRepartir_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 52
Dim imagenes As String
imagenes = App.Path & "\imagenes\cartas\" & Str(Int((Limite2 - Limite1 + 1) * Rnd + Limite1)) & ".jpg"
Picture6.Picture = LoadPicture(imagenes)
End Sub

Use el codigo que me pasastes, lo modifique bastante jeje. Pero me dice "ERROR 53 No se ha encontrado el archivo" y esta bien la ruta y todo.