mesela değer girdiğiniz alan: "txtgiris" metin kutusu olsun
           değişmesini istediğiniz alan da: "txtdegis" olsun
"txtgiris" değiştiğinde olayına aşağıdaki kodu yazın
aktif metin kutusunun değerini ataya bilmek için ".value" değil ".text" özelliği kullanılıyor galiba

Private Sub txtgiris_Change()

Me.txtdegis = Me.txtgiris.Text

End Sub