vbCrLf长度测试

    Private Sub btnvbCrLf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvbCrLf.Click
        Dim a As String
        a = "aaa"
        MsgBox(a.Length)
        a = a & vbCrLf
        MsgBox(a.Length)
        a = a & "aaa"
        MsgBox(a.Length)
        MsgBox(Len(vbCrLf))
    End Sub