Şöyle birseyi de dendeneyebilir misiniz? bilgisayar erişimim olmadığından deneyemedim
Ilk mesajdaki çalışmanız için ara fonksiyonunun en başına aşağıdaki kodu ekler misiniz
Screen.ActiveControl.value=Screen.ActiveControl.text
Screen.ActiveControl.SelStart=len(Screen.ActiveControl.value)
Geriye kalan tüm kodlar ilk mesajınızdaki gibi kalacak