Ошибка при определении имени пользователя

Declare Function GetUserNameAPI Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
Sub Test()
Dim sUserName As String, lLen As Long
sUserName = Space(255)
lLen = 255
GetUserName sUserName, lLen
MsgBox Trim(sUserName)
End Sub

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
  Dim sUserName As String, lLen As Long
  lLen = 255
  sUserName = Space(lLen)
  GetUserName sUserName, lLen
 
  Text1.Text = sUserName  'имя пользователя в TextBox1
End Sub

Private Sub Form_Load()
  Dim sUserName As String, lLen As Long
  lLen = 255
  sUserName = Space(lLen)
  GetUserName sUserName, lLen
 
  Text1.Text = sUserName  'имя пользователя в TextBox1
End Sub

Private Sub Command1_Click()
  Dim sUserName As String, lLen As Long
  lLen = 255
  sUserName = Space(lLen)
  GetUserName sUserName, lLen
 
  Text1.Text = sUserName  'имя пользователя в TextBox1
End Sub

Private Type tOffice
  Number As Integer
  Telephone As String
End Type
 
'общее количество отделов
Const OfficeCount As Integer = 100
 
Dim Office(1 To OfficeCount) As tOffice
 
Private Sub Combo1_Change()
  'отобразить номер телефона в Label1 при смене отдела в Combo1
  Label1.Caption = Office(Combo1.Index).Telephone
End Sub
 
Private Sub Form_Load()
  'добавить в Combo1 все отделы
  For n = 1 To OfficeCount
    Combo1.AddItem Office(n).Number
  Next
End Sub

Private Type tOffice
  Number As String
  Telephone As String
End Type
 
'общее количество отделов
Const OfficeCount As Integer = 10
 
Dim Office(1 To OfficeCount) As tOffice
 
Private Sub Combo1_Change()
  'отобразить номер телефона в Label1 при смене названия отдела в Combo1
  Label1.Caption = Office(Combo1.Index + 1).Telephone
End Sub
 
Private Sub Form_Load()
 
  'тут проставляешь названия и телефоны каждого отдела
 
  Office(1).Number = "название отдела"
  Office(1).Telephone = "номер телефона"
 
  Office(2).Number = "название отдела"
  Office(2).Telephone = "номер телефона"
 
  Office(3).Number = "название отдела"
  Office(3).Telephone = "номер телефона"
 
  ' -----------------------------------
 
  Office(10).Number = "название отдела"
  Office(10).Telephone = "номер телефона"
 
  Combo1.Sorted = False
 
  'потом добавить все названия отделов в Combo1
  For n = 1 To OfficeCount
    Combo1.AddItem Office(n).Number
  Next
End Sub

 Label1.Caption = Office(Combo1.Index + 1).Telephone

 Label1.Caption = Сombo1.Text

Private Sub Combo1_Change()
  'отобразить номер телефона в Label1 при смене названия отдела в Combo1
  Label1.Caption = Office(Combo1.Index + 1).Telephone
End Sub

Private Sub Combo1_Click()
  Label1.Caption = Office(Combo1.ListIndex + 1).Telephone
End Sub