Retriving information from text box

[AllQuestions]

Htm el=htm("DIV" "" "" win(" " "ATL:007C37C8"))
str s=el.Text

lpstr s1 = s
str s2
int i

i=findcr(s1 ':')+2
if(i>=0) s2.get(s1 i)
,out s2
else
,out i

this code here will get the last text from Messnger inbox...
basically what i want to do is to make it get last text only if it is a number...

and if it is a number it will store into a string and then run function23

example..

hey are you still here..
hello?
call me if u get this
7777777

I Want to make the code constently read the text...and if the last message is a 7 didget phone number then to store the code into a string or copy it and then run a macro..if it isnt a 7 didget number then to keep checking. is this possible?
thanks for all the help