Hỏi về 2 hàm xác định tên máy tính (dùng API)

[PhanTuHuong]

Tôi có sử dụng 2 hàm Get_Computer_Name và Ten_may_tinh để xác định tên máy tính (file kèm theo).
Hai hàm cho tên và chiều dài (sử dụng hàm len của Excel) giống nhau.

Nhưng hàm thứ nhất lại cho chiều dài khác với trong bảng tính (dùng len VBA của thủ tục Kiemtra_Get_Computer_Name) và không thể xác định được tên theo cách thông thường (không ổn).
Hàm thứ hai cho kết quả rất ổn, sử dụng được (thủ tục Kiemtra_Ten_may_tinh).

Các cao thủ cho ý kiến và so sánh giữa 2 hàm này?

 

[dat2007]

Function Get_Computer_Name()
Dim Comp_Name_B As String * 255
Dim Comp_Name As String
GetComputerName Comp_Name_B, Len(Comp_Name_B)
'but the string is always ended with a null terminated string so we can use the Chr(0) function to find the end
Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)) - 1)
'and return only the computer name
Get_Computer_Name = Comp_Name
End Function

Bác sửa lại như trên là được