Private Sub Command1_Click()
 Text2 = Replace(Text1, "?v=", "/v/")
End Sub
Private Sub Command2_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text2.Text
Do Until Navega.Busy = False
Loop
End Sub

Private Sub Command3_Click()
 Text4 = Replace(Text3, "swf/l.swf", "get_video")
End Sub

Private Sub Image1_Click()

End Sub
Private Sub Command4_Click()
Dim Navega As Object
Set Navega = CreateObject("InternetExplorer.Application")
Navega.Visible = -1
Navega.Navigate Text4.Text
Do Until Navega.Busy = False
Loop
End Sub