Dim Vals() As String = "fax2,,name1,%u5F20%u603B,name1email,,name1class,,name1call,,name1birth,,name1sexlist,%u7537".Split("%")
Dim newVals As String
For Each val As String In vals
If val.StartsWith("u") Then
val = Chrw(HexToDec(val.SubString(1,4))) & val.SubString(5)
End If
newvals = newvals & val
Next
output.show(newvals)