\'ключевые слова Lib, Alias, ByVal, Long, Any не выделены\n 
    Private Declare Sub CopyMemory _\n                    Lib "kernel32" _\n                    Alias "RtlMoveMemory" (pDst As Any, _\n                                           pSrc As Long, _\n                                           ByVal ByteLen As Long)\n\nPrivate Function Test(v1 As Long) As String\n    Dim p1 As Long  \'тут появится лишняя строка,\n 
    Dim i As Long  \'хоть её и не было\n 
     \'между этих строк\n 
     \'разрывов нет и после тоже\n 
    i = InStr( 1 , " вот", Chr$( 0 )) -  1 \n     \'странный "такой комментарий\n    p1 = "обычно " & "строковые " & "константы " & "не выделяются"\n    \'конец " странного комментария \n 
    Test = "А то в глазах рябит"\nEnd Function

\'ключевые слова Lib, Alias, ByVal, Long, Any не выделены    Private Declare Sub CopyMemory _                    Lib "kernel32" _                    Alias "RtlMoveMemory" (pDst As Any, _                                           pSrc As Long, _                                           ByVal ByteLen As Long)Private Function Test(v1 As Long) As String    Dim p1 As Long \'тут появится лишняя строка,    Dim i As Long \'хоть её и не было    \'между этих строк    \'разрывов нет и после тоже    i = InStr(1, " вот", Chr$(0)) - 1    \'странный "такой комментарий    p1 = "обычно " & "строковые " & "константы " & "не выделяются"    \'конец " странного комментария     Test = "А то в глазах рябит"End Function