Dim hex As String = _
    "43003a005c00550073006500720073005c00730079007300610064006d0069006e002" & _
    "006c00650065007200300031005c0041007000700044006100740061005c0052006f0" & _
    "61006d0069006e0067005c004400650073006b0074006f0070005c005300790073004" & _
    "0069006c00650073000000"
 
    Dim com As String = ""
    Dim i As Integer
    Dim stb As New System.Text.StringBuilder(hex.length)
 
    For i = 0 To hex.Length - 3 Step 2
       stb.Append(ChrW(CInt("&H" & hex.Substring(i, 2))))
    Next i
 
    com = stb.ToString