vb中輸入壹串字符串，字符串中每個字符字典順序遞增1如何實現。如輸入abc，輸出bcd

dim a,b as string

a=inputbox("輸入字符串")

For i = 1 To Len(a)

b=b & chr(asc(mid(a,i,1))+1)

next

msgbox b

next