Dim str As String = RegexReplace("(').+\w.+", WholeCode, "Testest")
EditText1.Text=str
Sub RegexReplace(Pattern As String, Text As String, Replacement As String) As String
Dim m As Matcher
m = Regex.Matcher2(Pattern, Regex.MULTILINE, Text)
Dim jo As JavaObject = m
Return jo.RunMethod("replaceAll", Array(Replacement))
End Sub