Los procedimientos som proceso que no devuelven un valor especifico, esta es la sintaxis:
Sub N0mbredelProcedimiento()
cuerpo
End sub
Aqui les va un ejemplo: Crear un procedimiento que permita limpiar los TextBox de un formulario.
Sub limpiar()
Dim obj As Object
For Each obj In Me.Controls
If TypeOf obj Is TextBox Then
obj.text = ""
End If
Next
End Sub
El For Each nos ayuda a buscar los objetos que son TextBox y los limpia.
NOTA: Los TextBox que esten dentro de de un groupbox no se limpiaran por que los toma fuera del formulario.
En cambio las funciones davuelven un valor específico y puede recibir parametros.
EJEMPLO: Crear una funcion que devuelven la suma de dos numeros que se reciben como parametros.
Function suma(ByVal x As Integer,ByVal y As Integer) As Integer
Dim suma As Integer
suma = x + y
Return suma
End Function
Los parametros son: x, y (valores enteros) y el valor a retornar es: suma.
