[vb] litet problem

skriver på en liten dll fil som ska skicka ett meddelande och vänta på ett svar (med hjälp av winsock)... när svaret kommit ska dll filen avslutas och ge tillbaka svaret som värde

problemet är att jag vill inte att loopen (i funktionen Huvud) ska vara kvar..
den ger instabilitet (när det gäller vb)
kan jag göra på något smartare sätt?

Dim Data
Function Huvud()
Call Anslut

While Data <> ""
DoEvents
Wend

Huvud = Data
End Function
Private Sub Anslut()
Winsock1.RemoteHost = "192.194.194.14"
Winsock1.RemotePort = "3334"

Winsock1.SendData "HEJ"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data
End Sub

tack på förhand. MVH Palle