Получить имя компьютера - Visual Basic .NET

Формулировка задачи:

Есть форма, есть текст. Но не работает.VB2010

Public Class Form1
   
    'узнать имя компьютера
   
   Private Declare Function GetComputerName Lib "kernel32" Alias _
  "GetComputerNameA" (ByVal lpBuffer As String) As Long
    Private Const MAX_COMPUTERNAME_LENGTH = 15
    Sub Demo_GetComputerName()
        Dim strBuffer As String
        Dim lngResult As Long
        lngResult = GetComputerName(strBuffer)
        If lngResult = 1 Then
            MsgBox(strBuffer)
        End If
    End Sub
 
End Class

Решение задачи: «Получить имя компьютера»

textual
                            Листинг программы 
                        

                               Private Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
    Sub Demo_GetComputerName()
        Dim strBuffer As New String(" ", 250)
        Dim lngResult As Integer
        lngResult = GetComputerName(strBuffer, 250)
        If lngResult = 1 Then
            MsgBox(Trim(strBuffer))
        End If
    End Sub
                        