实例
Private Sub Command1_Click()
Dim mw(1 To 40) As String
Dim jm(1 To 40) As String
Dim i As Integer
Dim c As String
For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
jm(i) = CStr(CInt(c) - i)
Next
For j = 1 To i
Text1 = Text1 & jm(i)
Next
End Sub
但出现类型不匹配
如在文本框输入bmpfs
经过运算后在文本框中输出相应的解密数据

CInt(c)

这个函数要求输入的参数是 能转化为 数据类型的.
当你给个 字符串,而不是数字,自然报错.

这个循环有误.
For j = 1 To i
Text1 = Text1 & jm(i)
Next

你仔细研究一下你所用的算法吧.
字符转为对应的ASCII 的函数是  asc()
ASCII 转字符的 函数是 chr()

建议使用一个string类型变量保存text1.text，每次读写text1会降低效率。。

Private Sub Command1_Click()
Dim mw(1 To 40) As String
Dim jm(1 To 40) As String
Dim i As Integer
Dim c As String
For i = 1 To Len(Text1)'这红色的是变量还是控件？
c = Mid(Text1, i, 1)
jm(i) = CStr(CInt(c) - i)
Next
For j = 1 To i
Text1 = Text1 & jm(i)
Next
End Sub

红色的是控件

是变量，取的是text的默认属性text，即text1.text