Camando Função

[Vraptor]

Boa tarde:

Gostaria de uma dica.

Existe como chamar uma função utilizando o conteudo de uma variavel ?

Segue:

Option Explicit

Dim NOME_FUNÇÃO As String

_________________________

Private Sub Command1_Click()

Dim CHAMA As String

Dim A, B, C As String

A = "EXI"

B = "BE"

C = "()"

CHAMA = A & B & C

End Sub

_________________________

Function EXIBE()

MsgBox " A FUNÇÃO DEU CERTO "

End Function

alguém conhece alguma saisa para isso ?

Abraços...

Daniel.

[Graymalkin]

Se a função estiver em um módulo (.bas)...

Public Sub Exibe()
    MsgBox "Deu certo!"
End Sub

... e a seguinte função seja declarada (também em um módulo, de preferência)...

Public Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long

... você poderá fazer o seguinte:

    Dim CHAMA As String
    Dim A As String, B As String
    A = "EXI"
    B = "BE"
    CHAMA = A & B
    EbExecuteLine StrPtr(CHAMA), 0&, 0&, 0

Certo? Ah, e uma dica: fazer...

Dim A, B, C As String

... *somente* declara C como string, ficando A e B como Variants. Portanto, o correto é fazer:

Dim A As String, B As String, C As String

Isso até o VB6 (do .NET em diante a utilização que você fez declararia todos os objetos como strings).

Abraços,

Graymalkin