myPicPath = Options.DefaultFilePath(wdPicturesPath)

With Dialogs(wdDialogToolsOptionsFileLocations)
    .Path = "PICTURE-PATH"
    .Update
    myPicPath = .Setting

    If Not Right$(myPicPath, 1) = "" Then
        myPicPath = myPicPath + ""
    End If

    MsgBox myPicPath
End With

myDocPath = Options.DefaultFilePath (wdDocumentsPath)

Dim myDocPath As String
myDocPath = Dialogs(wdDialogToolsOptionsFileLocations).Setting

'Add a "" at the end of the path, unless the setting is already followed by a "" -
'which it will be if the setting is set to a root folder
If Not Right$(myDocPath, 1) = "" Then
    myDocPath = myDocPath + ""
End If

MsgBox myDocPath