Private Function CharToSurrogates(Character As String) As Tuple(Of Boolean, Tuple(Of String, String))
        Dim returned As String = ""
        For Each B In Encoding.BigEndianUnicode.GetBytes(Character).ToList()
            returned &= B.ToString("X2")
        Next
        If returned.Length < 8 Then
            Return New Tuple(Of Boolean, Tuple(Of String, String))(False, New Tuple(Of String, String)(returned, ""))
        Else
            Return New Tuple(Of Boolean, Tuple(Of String, String))(True, New Tuple(Of String, String)(returned.Substring(0, 4), returned.Substring(4, 4)))
        End If
    End Function