[مساعدة]

السلام عليكم

تفضل الكود

كود :

Dim word As String = Regex.Match(TextBox1.Text, "(?<=" & "Good" & "\s+)\w+", RegexOptions.IgnoreCase).Value.Trim
If word <> "" Then Clipboard.SetText(word) Else Clipboard.Clear()