WINSOCK VISUAL BASIC 6

Olah pessoal

Estou com um problema de envio via Winsock.

Tento enviar uma requisição conforme o exemplo abaixo.

If Trim(Text1(0).Text) = "" Then Exit Sub
If Winsock1.State = 7 Then
passo1 = False
mensagem = user_wsk & ";" & "INSERT;" & sql & ";"
Winsock1.SendData mensagem
End If
end sub

A função esta correta mas o sistema soh executa o SendData apenas quando o processo termina da sub.
Gostaria de saber como eu executo o SendData sem terminar o processo.

Obrigado!!!