Olayın tam olarak ne işe yarayacağı ile ilgili bir fikrimiz olmadığından böyle bir şeyler hazırladık, umarım doğru anlamışızdır.
Tabi bu arada Bul olarak yazdığımız satırın değişken olarak tanımlanmış olması gerekmektedir. Sadece sizin yazdıklarınıza göre uyarlanmıştır.

Private Sub Komut1_Change()

Dim kriter As Integer

kriter = Len(Me.Metin1.Text)

If kriter > 4 Then

MsgBox "Limit Doldu", ,"DİKKAT"

Bul = Metin1.Text

Else

Me.Metin5.Value = Bul

End If

End Sub