For i = 0 To New.Length - 1
Select New.CharAt(i)
Case "0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f"
aaa = Bit.ParseInt(ed3.Text, 16)
ed4.Text = aaa
aaa = 0
Case Else
ed3.Text = Old
ed3.SelectionStart = ed3.Text.Length
Return
End Select
Next