Visual Basic

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim FileName As String = Application.StartupPath + "\Config\conString.txt"
        Dim TextLine As String = String.Empty

        If System.IO.File.Exists(FileName) = True Then
            Dim ObjectReader As New System.IO.StreamReader(FileName)

            Do While ObjectReader.Peek() <> -1
                TextLine = TextLine & ObjectReader.ReadLine()
            Loop
        Else
            MessageBox.Show("Connection String not found " + vbNewLine + vbNewLine + FileName, "Failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        End If
    End Sub