stupidity strike me again!!!

i think this is how it should have been

Dim sName As String
Dim iLength As Long
Dim result As Long


sName = Space$(255)
iLength = 255
result = GetComputerName(sName, iLength)
sName = Left$(sName, iLength)
Label2.Caption = sName