using a button to save info input in textboxes

[DiLDoR]

this application I'm writing is for Employee Data. I have 7 texboxes and 1 combo box.

With the file menu I have used that function to save info inputed in one texbox. However for this application I need to use btnSave button to save the record.

here is what I used for the file>save menu:

Dim result As DialogResult
        'find input file
        With OpenFileDialog1
            .Title = "Find Input File"
            .Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
            .CheckFileExists = True
            result = .ShowDialog()
        End With
        'canceled out?
        If result = DialogResult.Cancel Then
            Exit Sub
        End If
        'remember name of input file
        strInputFileName = OpenFileDialog1.FileName

        'open files for input
        Dim inputfile As System.IO.StreamReader
        inputfile = System.IO.File.OpenText(strInputFileName)

        'clear and fill textbox with content of input file
        TextBox1.Clear()
        Do Until inputfile.Peek() = -1
            Dim strTextLine As String
            strTextLine = inputfile.ReadLine()
            TextBox1.Text = strTextLine & ControlChars.NewLine

        Loop
        'close the channel
        inputfile.Close()

How can I implement this with a button?