Dim s As String = "معنى"If s.Contains("ن") Then MsgBox("الكلمة يوجد فيها حرف ن")Else MsgBox("عفوا... الكلمة لا يوجد فيها حرف ن")End If