Escribir un procedimiento Sub

Un procedimiento Sub es una serie de instrucciones Visual Basic, encerradas entre un par de instrucciones Sub y End Sub, que realizan acciones específicas pero no devuelven ningún valor. Un procedimiento Sub puede aceptar argumentos, como constantes, variables o expresiones que le pasa el procedimiento que ha efectuado la llamada. Si un procedimiento Sub no tiene argumentos, la instrucción Sub debe incluir un par de paréntesis vacío.

El siguiente procedimiento Sub dispone de comentarios explicativos en cada línea.

' Declara un procedimiento llamado ObtenInformacion 
' Este procedimiento Sub no acepta argumentos
Sub ObtenInformacion()
' Declara una variable de cadena llamada respuesta
Dim respuesta As String
' Asigna el valor que devuelve la funcion InputBox a la variable respuesta
respuesta = InputBox(Prompt:="¿Cómo se llama?")
        ' Instrucción condicional If...Then...Else
    If respuesta = Empty Then
        ' Llama a la función MsgBox
        MsgBox Prompt:="No ha escrito su nombre."
    Else
        ' Función MsgBox concatenada con la variable respuesta
        MsgBox Prompt:="Su nombre es " & respuesta
        ' Fin de la instrucción If...Then...Else
    End If
        ' Fin del procedimiento Sub
End Sub