Help with Skype Auto responder application

Hi all i am working on an skype auto responder application for a friend of mine. The application compiles and runs without error. However nothing happens when i recieve a message the sender is not recieving the custom message. please see code below. any help with this would be fantastic many thanks.:thumb:

Imports SKYPE4COMLib

Public Class AutoResponder

Private Sub skypeAutoWrite(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Skype = New Skype
Skype.Attach(8, False)
AddHandler Skype.MessageStatus, AddressOf skype_MessageStatus
End Sub
Private Sub skype_MessageStatus(ByVal msg As ChatMessage, ByVal status As TChatMessageStatus)
If status = TChatMessageStatus.cmsReceived Then
If msg.Body = (TextBox1.Text) Then
End If
msg.Chat.SendMessage(TextBox1.Text)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Process.Start("http://www.google.com")
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
MsgBox("")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "This is an Auto-Reply: I am not available at the moment, Please leave a message..."
End Sub
End Class