wdDialogFileOpen is used to open a Word document so when you use it to select an image it opens it in a new document. You can use Application.FileDialog to display a
FileDialog[
^] :
Private Sub CommandButton5_Click()
'Adds pictures to document
Dim Count1 As Integer
Dim PictureNow As String
Dim InsertPics1 As Integer
Dim dlgOpen As FileDialog
InsertPics1 = InputBox("Question", _
"InsertPicsTitle", _
"How many pictures would you like to add?")
Set dlgOpen = Application.FileDialog( _
FileDialogType:=msoFileDialogFilePicker)
dlgOpen.AllowMultiSelect = False
While Count1 < InsertPics1
Selection.GoTo Name:="Check82"
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
If dlgOpen.Show = -1 Then
Selection.InlineShapes.AddPicture _
FileName:=dlgOpen.SelectedItems(1)
End If
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Count1 = Count1 + 1
Wend
End Sub