Office: makro zu langsam?

hi,
ich habe kein problem und brauch mal euren rat und tat
Ich lasse mir in eine excel zelle werte rein schreiben und will diese werte dann auf meiner user_form ausgeben. Das Problem ist die werte kommen sehr schnell und deshalb wird mir dann immer nur der letzte wert angezeigt. jetzt habe ich eine warte zeit eingebaut. jetzt wird immer eine sekunde gewartet bis der nächste wert kommt.

hoffe es gibt noch eine viel bessere lösung und ihr könnt mir dabei helfen.

danke schon mal

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

' nur Änderungen in A5 überwachen
   If Target.Address(0, 0) <> "A5" Then Exit Sub
   newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

' neuen Wert an UF übegeben
User_Form.TextBox5.Text = Target.Text
End Sub

Code: