Sub RefreshData
Dim SmsMessages1 As SmsMessages
Dim List1 As List
List1 = SmsMessages1.GetAllSince(DateTime.Add(DateTime.Now , 0, 0, -5))
For i = 0 To List1.Size - 1
Dim Sms As Sms
Sms = List1.Get(i)
If Sms.Address = "+41234567" Then
Log(Sms)
End If
Next
Dim text As String
text= (List1)
Dim tempstr() As String
tempstr = Regex.Split("(\b[^\s]+\b)", List1)
Log(tempstr)
lblPos.text = (tempstr)