Semplicemente leggo un file txt di nome licenza.txt e restituisco il suo valore. Ora l'if mi controlla che il file esiste e fin quì ok, ma se il file non esiste mi restituisce errore, ed io vorrei gestire questa situazione facendo uscire un messaggio del tipo "file non prsente"

codice:
Imports System
Imports System.IO
Imports System.Collections

Module Module1

    Dim licenza As New StreamReader("licenza.txt")
    Dim giorni As String = ""

    Sub Main()
        Dim file_esiste As String = "licenza.txt"
        If File.Exists(file_esiste) Then
                'FileCopy("c:\test.txt", "c:\new.txt")
                giorni = licenza.ReadLine()
                licenza.Close()
                MsgBox(giorni)
            Else
                MsgBox("Licenza scaduta")
            End If
    End Sub
End Module
O provato anche col boolean, ma il problema e che non riesco a gestire il False.

P.S. O snellito il codice inserendo il fileexist