Len

|

Sub sample()

    MsgBox Len("ABC") '文字数
    MsgBox Len("ABCDEFG") '文字数

End Sub