Sub Activity_Create(FirstTime As Boolean)
Dim Ttext1 As String
Activity.LoadLayout("textconv1") 'Default, just in case; Altijd doen, ook na orientatie change!
Dim tr As TextReader
tr.Initialize2(File.OpenInput(File.DirAssets, "test1.txt"),"windows-1252")
Ttext1 = tr.ReadAll
EditText1.text = Ttext1
End Sub