Вывод ошибки при отсутствии файла

    Public strTest As String = readIni("Main", "path")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        If TextBox1.Text = IO.File.ReadAllText(strTest, System.Text.Encoding.Default) = True Then
        Else
            MsgBox("Файл " & """" & strTest & """" & "  не найден!", MsgBoxStyle.Exclamation)
        End If
        Timer1.Interval = 200
        Timer1.Start()
    End Sub

 Public Function readIni(ByRef razdel As String, ByRef param As Object) As String
        ' Читаем настройки
        readIni = GetValue(razdel, param, ".\Setup.ini", "0")
    End Function

        Dim FP As String
        FP = "C:\1.txt"
        Dim FI As IO.FileInfo = New IO.FileInfo(FP)
        If FI.Exists Then MsgBox(FP & " существует") Else MsgBox(FP & " не существует")

 Public strTest As String = readIni("Main", "path")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim FI As IO.FileInfo = New IO.FileInfo(strTest)
        If FI.Exists Then
        Else
            MsgBox("Файл " & """" & strTest & """" & "  не найден!", MsgBoxStyle.Exclamation)
            Me.Close()
        End If
        TextBox1.Text = IO.File.ReadAllText(strTest, System.Text.Encoding.Default)
        Timer1.Interval = 200
        Timer1.Start()
    End Sub

    Public strTest As String = readIni("Main", "path")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists(strTest) Then
            TextBox1.Text = IO.File.ReadAllText(strTest, System.Text.Encoding.Default)
            Timer1.Interval = 200
            Timer1.Start()
        Else
            MsgBox("Файл " & """" & strTest & """" & "  не найден!", MsgBoxStyle.Exclamation)
            Me.Close()
        End If
    End Sub