Sub setTextToNormal
refRTF.Target = notepad_txt_NoteWriting
Dim selStart As Int = refRTF.RunMethod("getSelectionStart")
Dim selEnd As Int = refRTF.RunMethod("getSelectionEnd")
Dim SpannableString As JavaObject ' in Java this object is called SpannableStringBuilder
SpannableString = refRTF.RunMethod("getText") ' includes the text with all spans
' We create a span object from type StyleSpan
Dim boldSpan As JavaObject
boldSpan.InitializeNewInstance("android.text.style.StyleSpan", Array As Object(Typeface.STYLE_NORMAL))
SpannableString.RunMethod("setSpan", Array As Object(boldSpan, selStart , selEnd, 33))
End Sub