Visual Basic - ayuda urgente

buenas a todos
tengo un problema con funciones de archivos de recursos
bueno en estas funciones hago referencia al numero de la imajen del recurso
pero todo esto lo quiero meter en una sola funcion para ahorrar codigo
pero no se como espero me puedan ayudar


Sub imche(impic As PictureBox)
Set che = LoadResPicture(101, vbResBitmap)
With impic
.Picture = che
End With
End Sub

Sub imdodge(impic As PictureBox)
Set dod = LoadResPicture(102, vbResBitmap)
With impic
.Picture = dod
End With
End Sub

Sub imford(impic As PictureBox)
Set ford2 = LoadResPicture(103, vbResBitmap)
With impic
.Picture = ford2
End With
End Sub