Private Sub Worksheet_Change(ByVal Target As Range)
    Open "c:\excel_output.txt" For Output As #1
    Print #1, Format(Date, "yyyy/mm/dd") + " " + Format(Time(), "hh:mm:ss") + " " + Str(Range("C4").Value)
    Close #1
End Sub