Kod:
Private Sub Command2_Click()
Dim yazi, ilk, son, kriter1, kriter2 As String
kriter1 = Chr(34) & "\u003E@"
kriter2 = "\u003C"
ilk = InStr(1, Me.Text0, kriter1)
son = InStr(ilk + 1, Me.Text0, kriter2)
yazi = ""
For T = ilk + 8 To son - 1
yazi = yazi & Mid(Me.Text0, T, 1)
Next
MsgBox yazi
End Sub