Visual Basic - Error en visual basic

Hola,q tal?
Me sale un error al insertar "cachos" de codigo de esos que se encuentrar por la red. El error es: "Los comentarios solamente pueden aparecer después de End Sub, End Funtion o End Property"
Si alguien me pudiera indicar porqe me pasa esto.....se lo agradeceria.

uso windows Xp y vb6

gracias!

Fijate en los comentarios y en las lineas de codigo recuerda que los comentarios van antecedidos por una comilla simple ----> ' <-----

Que va.....eso fue lo primero q hice :( Las comillas estan bien puestas. Ademas....estas rutinas(q como decia estas por ahi en internet) es copiar y pegar

por ejemplo

'Declaración del API de 32 bits.
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" _
(ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Private Function EspacioLibre(ByVal lpRootPathName As String)
'lpRootPathName= Directorio raiz de la unidad a examinar

'Valores devueltos por la función:
'lpSectorsPerCluster = sectores por cluster
'lpBytesPerSector = bytes por sector
'lpNumberOfFreeClusters = número de clusters libres
'lpTotalNumberOfClusters = número de clusters en el disco

Dim lpSectorsPerCluster As Long
Dim lpBytesPerSector As Long
Dim lpNumberOfFreeClusters As Long
Dim lpTotalNumberOfClusters As Long
Dim ret&
Dim TotalBytes As Long

ret = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster, _
lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)

TotalBytes = lpTotalNumberOfClusters * lpSectorsPerCluster * lpBytesPerSector
EspacioLibre = Format(TotalBytes, "###,###,###")
End Function

da fallo en la segunda linea :(

gracias a todos