Different languages use different Unicode Ranges to display their characters.
Based on these ranges we can assume the Language/Script of a string.
Sub identifyLang(text As String) As String
Dim lang = "Unknown"
Dim code As Int = Asc(text)
Select True
Case code >=...