[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