[vb6]troncare byte stringa

[oregon]

Usa il valore restituito dalla API per individuare la lunghezza della stringa ...

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

Private Function ComputerName() As String
    Dim buffer As String * 512, length As Long
    
    length = Len(buffer)
    
    If GetComputerName(buffer, length) Then
        ComputerName = Left$(buffer, length)
    End If
End Function