Public Function D3Dc(YID As String, LAmer As String)
Dim packet1 As String
'4it_saz5kris____________69@att.net131280<contact><yi>it_saz</yi></contact>
'4it_saz5kris____________69@att.net1303022803002805elite.kris280<contact><fn>Elite</fn><ln>Kris</ln><yi>elite.kris</yi></contact>301280303280
'4it_saz5kris____________69@att.net133
'packet1 = YMSGPacket("1À€" & YID & "À€13À€1À€302À€5À€5À€" & TargetUser & "À€303À€5À€280À€" & String(469, Chr(32)) & "À€", String(4, 0), String(4, 0), 211)
packet1 = YMSGPacket("1À€" & YID & "À€13À€1À€302À€5À€5À€" & LAmer & "À€303À€5À€280À€" & String(662, "&") & "À€", String(4, 0), String(4, 0), 211)
'packet1 = YMSGPacket("1À€" & YID & "À€5À€" & LAmer & "À€13À€0À€302À€280À€300À€280À€5À€" & LAmer & "À€280À€" & String(462, "&") & "À€301À€280À€303À€280À€", String(4, 0), String(4, 0), 211)
'D3
D3Dc = packet1
End Function