Code:
Private Sub MySub(X As Long)
    ' This is a comment
End Sub
Just testing...colouring doesn't seem to be working at the moment.