小的不才，不過還沒聽過程式碼需要用中文「翻譯」的，連參考書也沒這樣做。
頂多就是「加上註解」罷了。了解它的作用，以自已懂的方式去註解，不就好了嗎?

我不寫 VB，我寫 Delphi，可是這段程式碼，我想我應該也看得懂，那就是：

Winsock1_DataArrival 是由其他程序呼叫的子程序，藉由被傳入的 Index 參數，給 Winsock1.GetData 取得 Winsock1 的相關資訊並 assign 給 str 後，將 Winsock1.RemoteHostIP 及 str 累加到 Text3 元件的 Text 屬性。
接著再以30次周期的迴圈做判斷，假如 Winsock1(i).State = sckConnected (應意為連線狀態)，就以 Winsock1(i).SendData 方法，傳出 str，再做 DoEvents (目的不明)。
註：由於本人不是很了解 VB 元件的方法，與變數的相對位置，我只能猜測此 procedure 的目的來說了。

不過最後，我還是覺得，程式碼比多餘的中文敘述，簡單明瞭多了...