Sub btnAction_Click
    Dim lst As List
    lst.Initialize
    For i = 1 To 5
        lst.Add("آیتم شماره " & i)
    Next
    File.WriteList(File.DirInternal, "saved_text.txt", lst)
    ToastMessageShow(lst.Size & " آیتم ذخیره شد", False)
End Sub

Sub btnLoad_Click
    If File.Exists(File.DirInternal, "saved_text.txt") Then
        Dim lst As List = File.ReadList(File.DirInternal, "saved_text.txt")
        For i = 0 To lst.Size - 1
            Log(lst.Get(i))
        Next
        ToastMessageShow("تعداد " & lst.Size & " آیتم خوانده شد", False)
    End If
End Sub