用VB6.0如何把字符后两位替换成星号"*"

Dim i As Integer
Dim s As String
Dim r As String
s = "ASDFG"
For i = 1 To Len(s)
If i > 2 Then
r = r + "*"
Else
r = r + Mid(s, i, 1)
End If
Next i
MsgBox r

functiom 字符串处理(字符串 as string) as string
if len(字符串)<=2 then:字符串处理=字符串:exit functiom
dim a as long,b as string
for a=0 to len(字符串)
b=b & "*"
next
字符串处理=mid(字符串,1,2) & b
end function
'对着手机打的，不知有错么？你自己调试下
'把上面代码复制到代码框中就可以了
'调用方法 返回字符=字符串处理(字符串)

'一句话就够了
a = Left(a, IIf(Len(a) >= 2, 2, Len(a))) & String(IIf(Len(a) >= 2, Len(a) - 2, 0), "*")

完整代码如下
Private Sub Form_Load()
a = "A DFG"
a = Left(a, IIf(Len(a) >= 2, 2, Len(a))) & String(IIf(Len(a) >= 2, Len(a) - 2, 0), "*")
MsgBox a
End Sub

dim a,b as string
a="asdfg"
b=left(a,2)&"**