vb中字符串替换问题

Private Sub Command1_Click()
'第一步: 首先查找指定位子的字符是什么:
Dim A As Integer, B As String, C As String, D As String, X As String, M As String
X = "P" '这个替换字符也可以用文本框输入X = Text3.Text
B = Text1.Text
M = Text2.Text
A = Int(Val(M))
C = Len(B)
D = Right(B, C - A + 1)
D = Left(D, 1)
'第二步: 替换字符:
B = Replace(B, D, X)
Label1.Caption = B
'注意：可以替换查询到的所有字符
End Sub

字符串（a）值为：12345678，第四个替换为2
a=mid(a,1,3)+"2"+mid(a,5,4)
mid的语法为mid(变量（或指定字符串），开始位置，截取长度)
mid的作用为截取字符串
原变量a=12345678
分别截取 要替换字符串两边的字符，即可实现效果

替换用：replace
查找指定位置用：mid

replace 简单

mid(a,b,c)=你想要换的字符

mid 简单直观