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

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

Здрям! VB6. Пишу код по определению имени текущего юзера. Нашел кучу примеров. Все начинаются одинаково:

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

При компиляции появляется ошибка: "ошибка компиляции. Только комментарии могут появляться после End Sub, End Function, End Property" Собственно вопросы: что не так? как правильно?

Решение задачи: «Ошибка при определении имени пользователя»

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

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