Access User und Computername mit VBA auslesen

Ich habe es jetzt so weit:


Private Declare Function GetUserName _
Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) _
As Long

Private Declare Function GetComputerName _
Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) _
As Long


Public Function CurrentUserWin() As String
Dim lpUsername As String
Dim lngTmp As Long

'Bei Fehlern weitermachen
On Error Resume Next

'String mit Leerzeichen füllen
lpUsername = Space(255)
'WIN-API-Funktion aufrufen
lngTmp = GetUserName(lpUsername, 255)

If Err.Number = 0 Then
'Wenn kein Fehler aufgetreten ist
CurrentUserWin = Trim(CutNullChar(lpUsername))
Else
CurrentUserWin = ""
End If

End Function

Function CutNullChar(ByVal v As Variant) As String
'bei NULL wird - zurückgegeben
If IsNull(v) Then
v = "-"
Else
'wenn chr(0) (vbNullChar) auftritt, alles danach abschneiden
If InStr(v, vbNullChar) > 0 Then
v = Left(v, InStr(v, vbNullChar) - 1)
End If
End If
CutNullChar = v
End Function

Private Sub Form_Load()
Me!User = CurrentUserWin
End Sub


==>Es funktioniert alles bis darauf das der Computername nicht ausgegeben wird.

Das ist mein Code:
Public Function ComputerName() As String
Dim lpPCName As String
Dim lngTmp As Long

'Bei Fehlern weitermachen
On Error Resume Next

'String mit Leerzeichen füllen
lpPCName = Space(255)
'WIN-API-Funktion aufrufen
lngTmp = GetComputerName(lpPCName , 255)

If Err.Number = 0 Then
'Wenn kein Fehler aufgetreten ist
ComputerName= Trim(CutNullChar(lpComputerName))
Else
ComputerName= ""
End If

End Function


==>Wenn ich den aber einbinde funktioniert gar nichts mehr.
Ich bekomme die Meldung:

"Sie haben als Einstellung der Ereigniseigenschaft den Ausdruck Bei laden eingegeben. Dieser Ausdruck hat einen Fehler verursacht. Ds Element ist bereits in einem Objektmodul vorhanden, von der dises Objektmodul abgeleitet ist."


Kann mir jemand weiter helfen?????????