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
End If

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

this code was convert to from c#

C# version code was taken from here :

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

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