Criar caixa de mensagem em VB.NET ASPX

Criar uma subrotina na classe da página conforme abaixo:

  Private Sub CaixaDeAviso(ByVal Mensagem As String)
    Dim lbl As New Label
    lbl.Text = ""
    Page.Controls.Add(lbl)
  End Sub

Para chamar a subrotina, coloque o seguinte código onde desejado, normalmente dentro de um "IF"

Exemplo:

If Alguma coisa Then
    CaixaDeAviso("Isto é um aviso.")
End If