Dim Data(Size2ndBoot - 1) As Byte   Do While cnt < Size2ndBoot
     Data(cnt) = Asc(Input(1, #1))
     cnt = cnt + 1
Loop
大家帮我看看啦