منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اكتب في التكست بوكس
ahmed is 'eating' and khalid ........ etc

......................

في زر الكوماند ضع الكود التالي
Private Sub Command1_Click()
S1 = InStr(1, Text1.Text, "'", vbBinaryCompare)
S2 = InStr(S1 + 1, Text1.Text, "'", vbBinaryCompare)
MyStr = Mid(Text1.Text, S1 + 1, (S2 - S1) - 1)

MsgBox MyStr
End Sub
__________________