Private Sub Command1_Click() For i = 1 To Len(Text1) a = Mid(Text1, i, 1) b = Asc(a) d = d & " " & b c = Hex(b) e = e & " " & c Next i Text2 = d Text3 = e End Sub