I just made one now in VB 2008:

Code:
Imports System.Net
Public Class Form1
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
If TextSearchBox.Text = Nothing Then
MsgBox("Type something for the program to search on YouTube!")
Exit Sub
End If
BackgroundWorker1.RunWorkerAsync()
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
CheckForIllegalCrossThreadCalls = False
Dim Client As New WebClient
Dim result = Client.DownloadString("http://www.youtube.com/results?search_query=" & TextSearchBox.Text & "&search_type=&aq=f")
Dim splitarray() As String = System.Text.RegularExpressions.Regex.Split(result, "<a id=""video-url-")
RichTextBox1.Text = "http://www.youtube.com/watch?v=" & splitarray(1).Split("""")(0)
End Sub
End Class