[VB6] Cancellare stringa se i caratteri sono zero

Sono di nuovo con VB6
In realtà ho 2 quesiti: il primo è, come faccio che per esempio nel textbox chiamato txtBox1, se non ci sono caratteri (ovvero i caratteri sono uguali a 0 o minori di 1) si cancelli una data stringa del testo contenuto in un ipotetico txtBox2?
Inoltre, come rendo un bottone premibile più volte? Nel senso che, quando modifico il contenuto di txtBox1, e ripremendo il bottone, il contenuto di txtBox2 si aggiorni, cosa che invece non avviene, e per cui mi ritocca ogni volta riaprire il programma...Grazie in anticipo.

La prima non l'ho capita bene... ma basterebbe un If(txtBox1.text = "")

Per la seconda basta che fai doppio click sul pulsante, vai nella parte di codice e scrivi ciò che vuoi avvenga alla pressione del tasto.
Questo si ripeterà ogni volta (c'è scritto nel codice OnClick di default) che clickki)

=)

Ho provato questo

If (txtBox1.Text = "") Then Replace(txtBox2, "Stringa", "")

Ma mi da errore...
Per il bottone, ho capito come dovrei fare, ma non ho idea di che codice usare.

If (txtBox1.Text = "") Then txtBox2.text=""