sending multiple strings to servser from client

[viruzman]

I Have a Remote Admin Program i coded, and got A msn alert box. i just wanted to know how to make it so this i can customize the msn alert messagebox.

This is the code above on the server side that will make the popup appear.

If InStr(1, Data, "|MSN6ALERT|") <> 0 Then
On Error Resume Next
Dim Newalert As New cAlert

Newalert.Message = Message Here
Newalert.Title = "MSN 6.2 Style"
Newalert.Link = True
Newalert.sUrl = "http://www.google.com"
Newalert.MSN6
    Exit Sub
End If

And this is the code That Would Send It From The Client Side

msg = "|MSN6ALERT|"
SockMain.SendData msg

so i want to make this app to be able to customize the messages from the client side Something like thi i guesse.

If InStr(1, Data, "|MSN6ALERT|") <> 0 Then
On Error Resume Next
Dim Newalert As New cAlert
Newalert.Message = Int2
Newalert.Title = int3
Newalert.Link = int4
Newalert.sUrl = int5
Newalert.MSN6
    Exit Sub
End If

and i guesse from the client side
dim int2 as msg
dim int3 as title
dim int3 as link
dim int4 as url
TxTmsg= int2
TxTtitle=int3
TxTLink=Int4
TxTUrl=int5

msg = "|MSN6ALERT|"
SockMain.SendData msg, int2, int3, int4, int5

thank you in advance