求助，本人在做一个替换功能的软件，但是出错了，请问问题出现在哪里
Private Sub Command1_Click()Text2.Text = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Text1.Text, "0", "05"), "1", "0A"), "2", "03"), "3", "00"), "4", "09"), "5", "0E"), "6", "07"), "7", "02"), "8", "0C"), "9", "0F"), "A", "9A"), "B", "93"), "C", "90"), "D", "99"), "E", "9E"), "F", "97"), "G", "92"), "H", "9C"), "I", "9F"), "J", "??"), "K", "94"), "L", "98"), "M", "??"), "N", "9B"), "O", "??"), "P", "E5"), "Q", "EA"), "R", "E3"), "S", "E0"), "T", "E9"), "U", "EE"), "V", "E7"), "W", "E2"), "X", "EC"), "Y", "EF"), "Z", "??"), " ", "35"), "-", "36")
End Sub
本来1要换成0A的，结果换成了09A了，求解救
