vb程序设计函数MyLen：该函数实现Len（）函数的功能。

Public Function MyLen(ByVal myData) As Long
MyLen = Len(myData)
End Function

我还是坚持我的答案....看了Yuqi_Tan 的答案我不禁要补充一下...

Len这个函数不止可以计算字符型数据的长度,还可以计算数字,结构体等数据类型...如果下面这段代码,Yuqi_Tan 你的函数应该怎么处理呢?所以,我还是坚持我的答案,呵呵

Private Type typA
a As Long
b As String
End Type
Private Sub Command2_Click()
Dim a As typA
Debug.Print Len(a)
End Sub

Private Sub Form_Click()
Form1.AutoRedraw = True
Dim A As String
A = InputBox("一个字符串", "输入", "jf635wijJOF")
Print "你输入的字符串是："; A
Print "MyLen("; A; ")="; MyLen(A)
Print "对比：Len("; A; ")="; Len(A)
End Sub

Private Function MyLen(ByVal X As String) As Integer
Dim Y As String, I As Integer
I = 0
Do Until X = Y
I = I + 1
Y = Left(X, I)
Loop
MyLen = I