Dim Str1 As String = "中华人民共和国"If Str1.Contains("人民") = true
Output.Show("OK")Else Output.Show("NO")End If