正确的代码高亮如下：@H_502_5@@H_502_5@

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

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

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