Sub tohex()
Dim I As Integer, h1 As String, h2 As String
Sheet1.Range("a1").Replace " ", ""
For I = 1 To Len([a1]) Step 1
If I Mod 2 > 0 Then
h1 = h1 + Mid([a1], I, 1)
Else
h2 = h2 + Mid([a1], I, 1)
End If
Next I
[a2] = h1
[a3] = h2
End Sub