I suppose that means you don't have an inlineshape in the document. Try:

Private Sub UserForm_Initialize()
   Set Image1.Picture = LoadPicture(ActiveDocument.Shapes(1).LinkFormat.SourceFullName)
   TextBox1.Text = ActiveDocument.Shapes(1).AlternativeText
End Sub