[vb6]troncare byte stringa

[marco1970]

salve,
con questa funzione ricavo il nome macchina

    Dim risultato As Long
    Dim NomeComputer As String * 30
    Dim lunghezzastringa As Long
    NomeComputer = String(256, 0)
    lunghezzastringa = Len(NomeComputer)
    risultato = GetComputerName(NomeComputer, lunghezzastringa)
    nome_macchina = NomeComputer 

ora il mio problema è che nella stringa nome_macchina oltre al nome del pc trovo anche tanti spazi quanti dichiarati in precedenza alla linea 2.
Posso ricavare solo il nome macchina senza gli spazi alla fine?
Grazie
Marco

[optime]

con la funzione TRIM

[marco1970]

grazie per la risposta, avevo già provato ma non va.
A quanto ho potuto capire (mia interpretazione) i caratteri in eccesso non sono spazi.
Quando eseguo in debug e mi posiziono con il mouse sulla variabile nome_macchina leggo il nome della macchina seguito da dei quadratini

[optime]

con ASC puoi farti ritornare il codice ASCII dei caratteri extra. a quel punto ti basterà fare una REPLACE

[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

[marco1970]

scusate il ritardo ma GRAZIE!!!!
Ho usato la soluzione di oregon ma ringrazio comunque tutti del forum
Marco