In order to provide the initial intention to add an implementation in the future, you can raise an error and specify that the procedure is not implemented yet.

[source,vb6,diff-id=1,diff-type=compliant]
----
Sub DoSomething()
    Err.Raise(1, , "NotImplemented")
End Sub
----