Non si apre un testo ( file testuale ) .txt

Ho portato a termine il programma che legge un testo txt. potete provarlo perchè non funziona.. Grazie Francesco

Nome_carattere = "Arial"
Dim_carattere = 20
Col_carattere = "blu"
AA = ""

GraphicsWindow.Height = 600
GraphicsWindow.Width =600
button1 = Controls.AddButton("Apri",500,50)
button2 = Controls.AddButton("Salva",500,100)
textbox = Controls.AddTextBox(430,75)

Controls.ButtonClicked = Button_Click

GraphicsWindow.Title = "Memo : fatto per il libro 'Esercizi e Programmi' di Francesco Panerai"
AA = Controls.AddMultiLineTextBox(10,10)  
Controls.SetSize(AA,400,490)
GraphicsWindow.PenWidth = DIM_carattere
GraphicsWindow.PenColor = Col_carattere
GraphicsWindow.FontName = Nome_carattere

Sub Button_Click
  Sound.PlayClick()
lastTxt = Controls.LastTypedTextBox
lastTxtText = Controls.GetTextBoxText(lastTxt)

lastBtn = Controls.LastClickedButton

If lastBtn = button1 Then
    If lastTxtText = "" then
       GraphicsWindow.ShowMessage("Non vi è nulla nella casella di testo", "Errore")
    Else
        GraphicsWindow.ShowMessage(Controls.GetButtonCaption(lastBtn) + " - " + lastTxtText ,lastTxtText)
     salva() 
    EndIf
  Endif
  
  If lastBtn = button2 Then
    If lastTxtText = "" then
         GraphicsWindow.ShowMessage("Non vi è nulla nella casella di testo","Errore")
    Else
        GraphicsWindow.ShowMessage(Controls.GetButtonCaption(lastBtn) + " - " + lastTxtText ,lastTxtText)
     apri()     
  EndIf
  Endif
  endsub
  
sub salva
EndSub

Sub apri
  'Definisce il percorso del file
lastTxtText = Controls.GetTextBoxText(lastTxt)
If lastTxtText <> "" Then
'  In Microsoft Small Basic, puoi rilevare l'estensione di un file utilizzando il metodo Text.GetSubText per estrarre la parte finale del nome del file, dopo l'ultimo punto (.). Ecco un esempio pratico:

fileName = lastTxtText '"documento.txt"
dotPosition = Text.GetIndexOf(fileName, ".")
extension = Text.GetSubText(fileName, dotPosition + 1, Text.GetLength(fileName) - dotPosition)

GraphicsWindow.ShowMessage( "L'estensione del file è: " + extension,"Messaggio")

If extension = "txt" Then ' va bene

'Apre il file e legge il contenuto
fileContent = File.Readcontents(lastTxtText) ' si prende per default il percorso
'della cartellina dove è il programma

'Controlla se il file è stato letto correttamente
If fileContent = "" Then
  GraphicsWindow.ShowMessage("Impossibile leggere il file.","Errore")
Else
  'Visualizza il contenuto del file
  'TextWindow.WriteLine("Contenuto del file:")
  'TextWindow.WriteLine(fileContent)
  GraphicsWindow.ShowMessage(AA,"File")
   Controls.SetTextBoxText(AA+ "\",filecontent) '.AddMultiLineTextBox
EndIf
EndIf
EndIf

  EndSub