vb6 windowsmedia player

I am trying to code a vb6 project and have been trying to add youtube to show in windowsmedia player. I found this code but does not seen to work

I've tried this and cannot make it work and textbox is set as keypress
Private Sub Command74_Click()
Dim VideoAddr As String
VideoAddr = Replace(URLAddr.Text, "/watch?v=", "/v/")
WindowsMediaPlayer1.URL = VideoAddr
End Sub