' VB에서 문자열 추출하기
' 예로 ListBox1.Text = "삼성전자{OA}시스템"
' 아래와 같은 정보로 strSearchText 에 "OA" 문자열을 반환

Dim strSearchText as String
 
strSearchText = Trim(Mid(ListBox1.Text
    , InStr(ListBox1.Text, "{")
    , InStr(ListBox1.Text, "}")))
 
strSearchText = Mid(strSearchText, 2, Len(strSearchText) - 2)