Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim strString As String strString = String(255, Chr$(0)) GetComputerName strString, 255 strString = Left$(strString, InStr(1, strString, Chr$(0))) MsgBox strString End Sub