String Manipulation using MID Methods

this program used Mid function performs a direct operation on astring and assigns to value to bstring and show it in txt2 

here is the code of this program. it is under button execute

Dim astring As String
Dim bstring As String
astring = txt1.Text
bstring = Mid(astring, 3, 3)
txt2.Text = bstring