Почему VB вылетает, когда я обраящаюсь к функциям GetUserName и GetComputerName?

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

Почему VB вылетает, когда я обраящаюсь к функциям GetUserName и GetComputerName? Заранее спасибо.

Решение задачи: «Почему VB вылетает, когда я обраящаюсь к функциям GetUserName и GetComputerName?»

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

                            '' Стопроцентно работающий код
'' (применяю во всех приложениях)
 
'' объявление функции
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                (ByVal lpBuffer As String, nSize As Long) As Long
 
 
 
'' сама функция
Function strGetUserName() As String
  Dim lngLen As Long, lngRet As Long
  
  strGetUserName = Space(255)
  lngLen = 255
  lngRet = GetUserName(strGetUserName, lngLen)
  strGetUserName = Left(strGetUserName, lngLen - 1)
End Function
                        