Private Sub Command1_Click() Dim a As String a = “https://www.youtube.com/watch?v=w-y9rc3AJv4” Call Shell(“explorer.exe ” & a) End Sub