Testei desta forma e funcionou bem:
a) No intervalo A1:A5 criei números (1 a 5)
b) No intervalo B1:B5 coloquei caminhos de imagens (c:\PastaTal\ArquivoTal.jpg)
c) Coloquei um SpinButton
d) Coloquei um Image control
O seguinte código carrega as imagens:
Private Sub SpinButton1_Change()
Dim strImagem As String
On Error Resume Next
strImagem = Application.VLookup(Me.SpinButton1.Value, _
Worksheets(1).Range("A1:B5"), 2, False)
If Err = 0 Then
If Len(Dir(strImagem, vbArchive)) > 0 Then
Me.Image1.Picture = LoadPicture(strImagem)
Else
Me.Image1.Picture = LoadPicture("")
End If
Else
Me.Image1.Picture = LoadPicture("")
End If
End Sub