จะให้ปุุ่ม button เมื่อกดและใส่ข้อมูลและ ไปค้นหา คำที่กรอกใน textfile

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim message As String
        message = "ใส่ Box No."
        BoxNumber= InputBox(message, "ใส่ Box No.", , 500, 50)
        Label13.Text = BoxNumber.ToString
        WriteOutput("Box. " + BoxNumber.ToString)

    End Sub

Public Sub WriteOutput(ByVal task As String)
        Dim fileCount As System.IO.StreamWriter
        fileCount = My.Computer.FileSystem.OpenTextFileWriter("D:\CountOutput.txt", True)
        fileCount.WriteLine(task + "  " + Date.Now)
        fileCount.Close()
    End Sub