Remove this function to remove Diacritics from Arabic text

Private Shared Function RemoveDiacritics(ByVal stIn As String) As String
Dim stFormD As String = stIn.Normalize(NormalizationForm.FormD)
Dim sb As New StringBuilder()

For ich As Integer = 0 To stFormD.Length – 1
Dim uc As UnicodeCategory = CharUnicodeInfo.GetUnicodeCategory(stFormD(ich))
If uc <> UnicodeCategory.NonSpacingMark Then
sb.Append(stFormD(ich))
End If
Next

Return (sb.ToString().Normalize(NormalizationForm.FormC))
End Function

this code was convert to vb.net from c#

C# version code was taken from here :  http://blogs.msdn.com/michkap/archive/2007/05/14/2629747.aspx

Text : الْحَمْدُ لِلَّهِ رَبِّ الْعَالَمِينَ

converted to : الحمد لله رب العالمين