This may help:
sub CheckPackage(Package as string)
Dim sb As StringBuilder
sb.Initialize
Phone.Shell("ps", Null, sb, Null)
Dim m As Matcher
m = Regex.Matcher2("^[^ ]*\s+(\d+) .*" & Package, Regex.MULTILINE, sb.ToString)
If m.Find Then
Log(Package & " is running")
Return True
Else
Log(Package & " is NOT running")
Return False
End If
end sub