Sub ReadTextReader
Dim TextRd As TextReader
TextRd.Initialize(File.OpenInput(File.DirAssets, "Register.html"))
Dim line As String
line = TextRd .ReadLine
page_registre = line
Do While line <> Null
line = TextRd .ReadLine
page_registre = page_registre + line
Loop
TextRd .Close
End Sub