Private Sub Translate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Translate.Click
        oFileName = filename_woExt & ".txt"
        Dim SR As New StreamReader(FileName) 'Input File Name
        Dim SW As New StreamWriter(oFileName) 'Output File Name
        Dim strLineData As String
        Dim OldFont As Font
        OldFont = Me.Font
        'Read the contents of the input file line by line
        Do While SR.Peek <> -1
            strLineData = SR.ReadLine
            Dim NewFont As Font
            NewFont = New Font("Symbol", 10, FontStyle.Regular)
            strLineData = strLineData.ToLower 'Convert line to Lower Case
            Font = NewFont
            SW.WriteLine(strLineData, Font)
        Loop
        Font = OldFont
        SR.Close()
        SW.Close()
        'Change the 'Start' button text to 'Done'
        Translate.Text = "Done" 'For this line to work the button property 'Modifiers' must be set to 'Public'
    End Sub