Visual Basic - caja de texto TEXT

holas tengo un problema ke solucionar con 2 txt les cuento, tengo un TXT llamado Haber y otro Debe.

Tengo ke hacer ke cuando escribo en el TXTHaber y despues en el TXTDebe, se borre lo ke hay en el TXTHaber y viseversa, ademas de validar los TXT cuando uno de los 2 esten lleno, para ingresarlo a la base de datos

yo lo hice de la siguente forma

Private Sub txtHaber_change()
txtDebe.text=""
end sub

Private Sub txtDebe_change()
txtHaber.text=""
end sub

esto me resulta pero me pasa lo siguiente, cuando ingreso un numero por ejemplo 1500 en el Haber, y depues ingreso el numero 3800 en el Debe, me borra lo ke hay en el Haber, pero, me toma solo el 800 en el Debe......ke puedo hacer....

me explico aun mejor, cunado escribo en una caja de TEXTO, y si escribo en la otra, la primera se borra y vicebersa.....solo tiene ke kedar una escrita de las 2

Lo que sucede es que cuando le indicás txtHaber.text="" estás desencadenando también el evento change y por lo tanto se ejecuta txtDebe.text=""
Deberías usar otro evento que no sea Change, Por ejemplo KeyUp

Private Sub txtHaber_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Trim(txtHaber.Text)) >= 1 Then
txtDebe.Text = ""
End If
End Sub

Private Sub txtDebe_KeyUp(KeyCode As Integer, Shift As Integer)
If Len(Trim(txtDebe.Text)) >= 1 Then
txtHaber.Text = ""
End If

End Sub