Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If Len(TextBox1.Text) < 3 Then
            MsgBox("URL must not be empty")
            Exit Sub
        End If
        Dim endsl As Integer
        Dim recip As Integer
        endsl = InStr(1, TextBox1.Text, "make/") + 5
        endsl = InStr(endsl, TextBox1.Text, "/") + 1
        recip = InStr(1, TextBox1.Text, "recip") - 1

        TextBox2.Text = "https://www.jibjab.com/makes/" & Mid(TextBox1.Text, endsl, recip - endsl) & ".mp4"

        Process.Start(TextBox2.Text)

        'https://www.jibjab.com/makes/7684de43-4e60-404c-a85d-b79929f90dc3.mp4
        'https://www.jibjab.com/view/make/all_star_smash_mouth_birthday/7684de43-4e60-404c-a85d-b79929f90dc3?recipient_token=6e1e363c-a154-47d6-9f3a-873570b85fb0&utm_campaign=tx_recipient_notification&utm_source=cordial&utm_medium=email&fbclid=IwAR1p3ZH3lPgdHNxjNa_l2WvkMt-AEHaITLsT8ccReG-7LENYnVmtQuvXdbc
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' TextBox1.Text = "https://www.jibjab.com/view/make/all_star_smash_mouth_birthday/7684de43-4e60-404c-a85d-b79929f90dc3?recipient_token=6e1e363c-a154-47d6-9f3a-873570b85fb0&utm_campaign=tx_recipient_notification&utm_source=cordial&utm_medium=email&fbclid=IwAR1p3ZH3lPgdHNxjNa_l2WvkMt-AEHaITLsT8ccReG-7LENYnVmtQuvXdbc"
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Len(TextBox2.Text) < 3 Then
            MsgBox("URL must not be empty")
            Exit Sub
        End If

        Process.Start(TextBox2.Text)


    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim clipb As String

        clipb = Clipboard.GetText()

        If InStr(1, clipb, "jibjab") = 0 Then
            MsgBox("no jibjab link found on clipboard")
            Exit Sub

        End If

        If Len(clipb) < 3 Then
            MsgBox("URL must not be empty")
            Exit Sub
        End If
        Dim endsl As Integer
        Dim recip As Integer
        endsl = InStr(1, clipb, "make/") + 5
        endsl = InStr(endsl, clipb, "/") + 1
        recip = InStr(1, clipb, "recip") - 1

        Process.Start("https://www.jibjab.com/makes/" & Mid(clipb, endsl, recip - endsl) & ".mp4")

    End Sub
End Class