Como retornar un valor en una funcion

[franko1809]

Quiero usar la funcion de esta manera y no se como retornar el valor de la variable dentro de la funcion

Código:

Private Sub Form_Load()
Text1 = Generar_codigo
End Sub

Código:

Function Generar_codigo()
  Set rsAcumulador = New Recordset
  rsAcumulador.Open "SELECT * FROM acumulador", dbConex, adOpenStatic, adLockOptimistic
  Dim acum As Integer
  acum = 0
  rsAcumulador.MoveLast
  acum = rsAcumulador("acuEmp") + 1
  'como retorno el valor de la variable acum
  'return acum
End Function

[Avellaneda]

Iniciado por franko1809

Quiero usar la funcion de esta manera y no se como retornar el valor de la variable dentro de la funcion

Código:

Private Sub Form_Load()
Text1 = Generar_codigo
End Sub

Código:

Function Generar_codigo()
  Set rsAcumulador = New Recordset
  rsAcumulador.Open "SELECT * FROM acumulador", dbConex, adOpenStatic, adLockOptimistic
  Dim acum As Integer
  acum = 0
  rsAcumulador.MoveLast
  acum = rsAcumulador("acuEmp") + 1
  'como retorno el valor de la variable acum
  'return acum
End Function

Código:

Function Generar_codigo() As Integer
...
...
Generar_codigo = acum
End Function

Devolverá un integer con el valor de acum