variabel mellem funktioner eller procedure ?

Hey...
jeg har følgene function som giver mig min computers navn og det er nice...  :)



Private function GetCompName(navn As String)
    Dim dwLen As Long
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    navn = String(dwLen, "X")
    'Get the computer name
    GetcomputerName navn, dwLen
    'get only the actual data
    navn = Left(navn, dwLen)
    out.Append " " & navn & " "  her visser den compnavn !
    'Show the computer name
End Function



men nu skal jeg over i min main procedure kalde på den

Private sub default
dim navn

GetCompName(navn)
msgbox navn    ' hvorfor visser den ikke comp navn her ?

end sub