Erro simples.Você não declarou o que é "Daruma_FI_VendeItemDepartamento".
Se colocar o seu nome Jongle vai dar o mesmo erro.Tem que definir,exemplo
Function Daruma_FI_VendeItemDepartamento()
End Function
Private Sub Daruma_FI_VendeItemDepartamento()
End Sub
Sub Daruma_FI_VendeItemDepartamento()
End Sub