Thank you very much for answers. I found answer by myself (thanks to Evil Tak i got an idea).
Dim findtext As String = "(?<=)(.*?)(?=)"
Dim myregex As String = "Keyboard"
Dim doregex As MatchCollection = Regex.Matches(myregex, findtext)
MsgBox(doregex(0).ToString)
StackOverFlow is so powerful...♥