textbox aanpassen

[wjeerd]

Hallo

ik ben bezig me in te werken in VBA

ik heb een programma waarin ik tijdens de uitvoering van het programma een waarde wil volgen.

ik had het onderstaande bedacht
als ik nu met F8 door het programma loop wordt de textbox aangepast zoals ik dat wil.
Als ik met F5 het programma start wacht het programma met het aanpassen van de textboxen
tot het programma is afgelopen.

welke instelling heb ik fout gedaan?


Private Sub TextBox1_Change()
TextBox1.Text = "eerst"

End Sub

Private Sub TextBox2_Change()
TextBox2.Text = "tweede"
End Sub

Private Sub UserForm_Click()
TextBox1_Change
tijd = Timer + 6
Do While Timer < tijd
Loop
TextBox2_Change
End Sub

 

[paulva]

Do While Timer < tijd
    DoEvents
Loop