bueno así quedó, gracias:
Public Function data(YahooID As String) As String
data = Header("57", "1À€" & YahooID & "À€")
End Function
Public Function Header(ByVal PacketType As String, ByVal pck As String) As String
Header = "YMSG" & Chr(0) & Chr(13) & String(2, 0) & Chr(Len(pck) \ 256) & Chr(Len(pck) Mod 256) & Chr(0) & Chr("&H" & PacketType) & String(8, 0) & pck
End Function
<?php
function data($yahoo_id){
return head('57', '1À€'.$yahoo_id.'À€');
}
function head($tipo_paquete, $paquete){
return
"YMSG\x00\x0D\x00\x00".
"\x00".
$paquete;
}
?>