If Not found = -1 Then
                        Dim datapath As String = _
                          System.Environment.GetFolderPath( _
                          Environment.SpecialFolder.ApplicationData) & "\SAmAs"
                        Dim xmlstring As String = dv(found).Item("Text")
                        Dim xmldok As New System.Xml.XmlDocument
                        xmldok.InnerXml = xmlstring
                        Dim Vorlagenpfad As String = _
                          xmldok.GetElementsByTagName("Dokumentvorlage").Item( _
                          0).InnerText
                        Dim Vorlage As String = Vorlagenpfad.Substring( _
                        Vorlagenpfad.LastIndexOf("\") + 1)
                        Vorlage = Vorlage.Substring(0, Vorlage.LastIndexOf( _
                        ".")) & ".xml"
                        xmldok.Save(datapath & "\" & Vorlage)
                        Vorlage = Vorlage.Substring(0, Vorlage.LastIndexOf("."))
                        Dim fi As New FileInfo(sapi.getVorlagenpfad & "\" & _
                          Vorlage & ".dot")
                        If fi.Exists Then
                            Dim psi As New ProcessStartInfo( _
                              sapi.getVorlagenpfad & "\" & Vorlage & ".dot")
                            Dim p As New Process
                            p.StartInfo = psi
                            p.Start()
                        Else
                            MsgBox("Vorlage nicht gefunden!")
                        End If
                    End If