Sub SI_MessageReceived (From As String, Body As String) As Boolean
Dim msg As String
msg = Body.ToLowerCase
Dim s(5) As String
s = Regex.Split("\*",msg)
If s.length>5 Then
Text1.Text = s (7)
Return True
Else 'Add this.
Return False 'Add this.
End If
End Sub