如何在VB中删除字符串中的Emoji

Imports Microsoft.VisualBasic

Function RemoveEmoji(ByVal input As String) As String
    Dim output As String = ""
    
    For Each c As Char In input
        If Not IsEmoji(c) Then
            output += c
        End If
    Next
    
    Return output
End Function

Function IsEmoji(ByVal c As Char) As Boolean
    Dim unicode As Integer = AscW(c)
    
    ' Emoji的Unicode范围
    If (unicode >= &H1F600 AndAlso unicode <= &H1F64F) OrElse
       (unicode >= &H1F300 AndAlso unicode <= &H1F5FF) OrElse
       (unicode >= &H1F680 AndAlso unicode <= &H1F6FF) OrElse
       (unicode >= &H2600 AndAlso unicode <= &H26FF) OrElse
       (unicode >= &H2700 AndAlso unicode <= &H27BF) OrElse
       (unicode >= &H1F900 AndAlso unicode <= &H1F9FF) OrElse
       (unicode >= &H1F1E6 AndAlso unicode <= &H1F1FF) OrElse
       (unicode >= &H1F191 AndAlso unicode <= &H1F251) OrElse
       (unicode >= &H1F600 AndAlso unicode <= &H1F636) OrElse
       (unicode >= &H1F681 AndAlso unicode <= &H1F6C5) OrElse
       (unicode >= &H1F30D AndAlso unicode <= &H1F567) Then
        Return True
    End If
    
    Return False
End Function

Dim input As String = "Hello, 👋🌍!"
Dim output As String = RemoveEmoji(input)
Console.WriteLine(output)