Private Sub Command1_Click()
Dim datos As String
Dim trozo As String
Dim f As Byte
datos = Text1.Text
'datos = "20212223242526272829303132333435363738394041424344454647484950"
For f = 0 To Len(datos)
trozo = Mid(datos, f * 2 + 1, 2)
Text2.Text = Text2.Text + Chr(Val("&H" + (trozo)))
Next f
End Sub