Sub SI_MessageReceived (From As String, Body As String) As Boolean
Dim msg As String
Dim msg As String
msg = Body.ToLowerCase
Dim s(4) As String
's = Regex.Split("\,",msg)
s = Regex.Split("\*",msg)
If s.length>1 Then
num.text=s(0)
num.TextSize= 30
clip.Text=s(1)
clip.Textsize =50
report.Text=s(2)
End If
Return True
End Sub