Hola:
Intenta con esto, creo que es como debe hacerse.
Código:
' Dimensionar Objeto Picture
Dim Pic As IPictureDisp
' Cargarlo, con una imagen
Set Pic = LoadPicture("C:\PerroSalchicha.jpg")
' Asignar la imagen a un Picture para ver que funciona
Picture1.Picture = Pic
' Borrar la imagen del Objeto Picture
Set Pic = Nothing
Saludos
Pd: Te amplio la información para tí o para otros en el futuro.
Cargar Imagen en Variable
Como no, de RECURSOS VISUAL BASIC