Imports System.IO

Public Class Form1

    Dim FILE_NAME As String = Application.StartupPath & "\_Indici.txt"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        loadValue()

    End Sub


    Public Sub loadValue()

        If Not File.Exists(FILE_NAME) Then
            MsgBox(FILE_NAME & " does not exist.")
            Return
        End If

        Using sr As StreamReader = File.OpenText(FILE_NAME)

            lblTotItp1.Text = FormatCurrency(sr.ReadLine)
            lblTotItp2.Text = FormatCurrency(sr.ReadLine)
            lblTotItp3.Text = (sr.ReadLine)

            sr.Close()

        End Using
    End Sub


End Class