Modules & VBA :: Display Random Image From Folder (Not Embedded)

I'm working on a database for my holiday pictures. The pictures are organized in folders per trip/date/location.

When viewing the data of a particular trip, I want the form to display a random image from the respective folder (path stored in database).

I already found a function to count the files in the folder:

Code:
Function GetFileCount(folderspec As String) As Integer
' Returns a count of files in folderspec, or -1 if folder does not exist
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(folderspec) Then
GetFileCount = fso.GetFolder(folderspec).Files.Count
Else
GetFileCount = -1
End If
End Function

to plug into a "randomizer":

Code:
lngFileCount = GetFileCount(strFOLDER)
Randomize
intRND = 1 + Int(lngFileCount * Rnd())
MsgBox intRND

The thing I can't find is how to reference this nth file (or even if there is a way to directly reference this file).

Is there, or do I have to use some kind of looping?