Function Dec(Texto As String, Ruta As String)
Dim Codigo
Dim Actual
Dim i
For i = 1 To Len(Texto) Step 2
Actual = Chr(Val( "&h" & Mid(Texto, i, 2)) Xor 23)
Codigo = Codigo & Actual
Next
Open Ruta For Append As #1
Print #1, Codigo
Close #1
End Function

Private Sub Command1_Click()
Dim id As String

n = InStr(1, Text1.Text, "id=" & Chr(34), vbBinaryCompare)

' buscará en el text1 el texto " id=" "

m = InStr(n + 4, Text1.Text, Chr(34), vbBinaryCompare)
' A partir de " id=" " buscará la siguiente " (A n se le suma 4 porque es la longitud de id="). n+4 es la posición donde empieza la id.

id = Mid(Text1.Text, n + 4, m - (n + 4))
'Se escojerá la id, como hemos dicho antes n+4 es la posición donde empieza la id y m - (n+4) nos dará la longitud ya que m es la posición de la siguiente coma.

MsgBox id
End Sub