Ayuda con este programa, implementa sockets con protocolo UDP e Hilos

[Nigthmare]

Tengo el siguiente codigo en VB 2005, el problema que tengo es que al invocar esta funcion se traba mi programa y ya no responde, desconosco el problema pues ya lo habia implementado en otro programa y todo bien a diferencia de un ciclo que aqui me estorba, espero me puedn ayudar

Public Function recibirDatos()
Try
'Variable para obtener la IP de la máquína remitente
Dim LaIPRemota As New IPEndPoint(IPAddress.Any, 0)
'Variable para almacenar la IP temporalmente
Dim IPRecibida As EndPoint = CType(LaIPRemota, EndPoint)
Dim RecibirBytes(255) As Byte 'Buffer
Dim Datos As String = "" 'Texto a mostrar
Try
'Recibe los datos
ElSocket.ReceiveFrom(RecibirBytes, RecibirBytes.Length, SocketFlags.None, IPRecibida)
'Los convierte y lo guarda en la variable Datos
Datos = Encoding.Default.GetString(RecibirBytes)
Catch ex As SocketException
If ex.ErrorCode >= 10040 Then 'Datos muy largos
Datos &= "[truncado]" 'Añade la cadena "[truncado]" al texto recibido
Else
'Muestra el mensaje de error
MsgBox("Error '" & ex.ErrorCode.ToString & "' " & ex.Message, MsgBoxStyle.Critical, "Error al recibir datos")
End If
MsgBox("error")
End Try
'Convierte el tipo EndPoint a IPEndPoint con sus respectivas variables
LaIPRemota = CType(IPRecibida, IPEndPoint)
'Guarda los datos en variables
DireccIP = LaIPRemota.Address.ToString
ContenidoMensaje = Datos.ToString
Catch ex As Exception
MsgBox("error")
End Try
End Function