Option Strict On
Option Explicit On
Imports System.Text
 
 
Module Module1
 
    Sub Main()
 
  Dim t As String = "ABC-ö-n-äää-ggg_üxmö-nn-ß-n-€--xyz"
 
        Debug.Print(t)
        Debug.Print(Escape(t))
    End Sub
 
    Function Escape(txt As String) As String
        Dim z%
        Dim tmp$ = txt
        For i As Integer = 0 To txt.Length - 1
            z = AscW(txt(i))
            If z > 127 Then
                tmp = tmp.Replace(ChrW(z), "\u" & z.ToString("x4"))
            End If
        Next
        Escape = tmp
    End Function
 
End Module