Private Sub Form_Load()
Dim computer_name As String
Dim length As Long

    computer_name = Space$(256)
    length = Len(computer_name)
    GetComputerName computer_name, length
    computer_name = Left$(computer_name, length)

    lblComputerName.Caption = "[" & computer_name & "]"
End Sub