正确的代码高亮如下：

Sub Test1_Null()
    dim aa as long
    Debug.Print str1 = vbNullString,StrPtr(str1),Len(str1)  'True,165209884,0
End Sub

CSDN的代码高亮，不能点亮Debug.Print和as long，如下所示

Sub Test1_Null()
    dim aa as long
    Debug.Print str1 = vbNullString,StrPtr(str1),Len(str1)  'True,0
End Sub