So the code would look something like this:
Code:
Sub AssignStillImage()
Dim imgPath As String
Dim imgFile As String
Dim finalImagePath As String
imgPath = "C:\Users\Jon\Google Drive\OrionDDS\Artwork\3D\Still\"
imgFile = imgPath & Me.DesignNumber
If Len(Dir(imgFile & ".*")) > 0 Then 'Checks if the basic design number without any name variation exists
finalImagePath = Dir(Me.StillFile & ".*") ' If so assigns this file to the finalImagePath string value
Else
'....finalImagePath = the first instance of a file with a name that starts with Me.DesignNumber but is not a revision of Me.DesignNumber.... This is where I need help
End If
Me.StillImage.Picture = finalImagePath
End Sub