Primero tenes que compilar la dll de manera especial con algun control de compilador, y segundo tenes que exportar la funcion, en este caso "Mensaje".
Lee el post que hice, el mismo de donde sacaste el ejemplo que lo explica en pocas palabras.
Tu code tendria que quedar asi.
Option Explicit
Public Function DLLMain( _
ByVal lhModule As Long, _
ByVal lReason As Long, _
ByVal lReserved As Long) As Long
DLLMain = 1
End Function
Public Sub Mensaje(texto As String)
MsgBox texto
End Sub