Private Sub cmdButton1_Click()
    txtText1.Text = ""
End Sub
 
Private Sub txtText1_Change()
    If txtText1.Text = "richtig" Then
        cmdButton1.Enabled = True
    Else
        cmdButton1.Enabled = False
    End If
End Sub