Código:
Private Sub wS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
wS(Index).GetData data
DatosTemporales = DatosTemporales & data
If Right(DatosTemporales, 1) = Chr(0) Then
While InStr(DatosTemporales, Chr(0))
Dim tempo As String
tempo = Mid$(DatosTemporales, 1, InStr(DatosTemporales, Chr(0)) - 1)
DatosTemporales = Mid(DatosTemporales, InStr(DatosTemporales, Chr(0)) + 1)
Debug.Print "[" & Index & "] << " & tempo
ProcesaDatos tempo, Index
Wend
DatosTemporales = ""
End If
End Sub