برای این منظور شما باید قسمتی از متن رو جدا کنید. این کار توسط توابع Left، Right و Mid انجام میشه.
اگه باهاشون آشنایی ندارید، جستجو کنید. مثال های زیادی زده شده.
اگه ساختار متنتون ثابته و مطمئنید که همیشه آدرس بصورت کامل و همین شکل وارد میشه می تونید بصورت زیر عمل کنید.
کد:
Dim s As Integer, e As Integer
s = InStr(1, Text1.Text, "www.")
s = s + 4
e = InStr(1, Text1.Text, ".blogfa")
Text2.Text = Mid(Text1.Text, s, e - s)