Funciones y Procedimientos sin parámetros

-Creamos el siguiente formulario:

Introducimos la siguiente configuración en cada uno de los botones.

text


Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub
    'CREAMOS LA FUNCION
    Sub saludo()
        MsgBox("Hola pc-solución")
    End Sub
    'CREAMOS EL PROCEDIMIENTO
    Function saludo2()
        Dim variable As String
        variable = "Hola de Nuevo"
        Return variable
    End Function

    'LLAMAMOS LA FUNCIÓN
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        saludo()
    End Sub
    'LLAMAMOS EL PROCEDIMIENTO
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim hola As String
        hola = saludo2()
        MsgBox(hola)

    End Sub
End Class