Usar valor de retorno de funcion creada en macros en otra macro

[gabotopuro7]

hola resulta que cree esta funcion en un modulo

Private Declare Function GetComputerName Lib "kernel32" _

Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Function ReturnComputerName() As String

    Dim rString As String * 255, sLen As Long, tString As String

    tString = ""

    On Error Resume Next

      sLen = GetComputerName(rString, 255)


    sLen = InStr(1, rString, Chr(0))

    If sLen > 0 Then

        tString = Left(rString, sLen - 1)

    Else

        tString = rString

    End If

    On Error GoTo 0

    ReturnComputerName = UCase(Trim(tString))

    MsgBox (ReturnComputerName)

    MsgBox Application.UserName [/CODE]

pero resulta que eso me devuelve un mensage diciendome el nombre de usuario y equipo en uso, pero quiero que desde otra macro usar esos valores como string, como se llama a la funcion para que me retorne estos valores? saludos

[Antoni]

Elimina los MsgBox de la función.

Y en cualquier macro o formulario:

Equipo = ReturnComputerName

Usuario = Application.UserName[/CODE]

[gabotopuro7]

MUCHAS GRACIAS!!!!!!!!!! TEMA SOLUCIONADO