Объединение двух значений String - VB

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

Здрям! Вот после этого кода он мне должен в буфер выводить adminru, а выводит или админ или названия функций, помогите, пожалуйста, код подправить.

Private Sub Command11_Click()
Rem получаем имя пользователя
 
  Dim strUserName As String
  Dim lngResult As Long
  strUserName = String(100, 0)
  lngResult = GetUserName(strUserName, 99)

Rem коипируем в буфер имя пользователя
  Dim str11 As String
  Dim domain As String
  Dim login As String
      
    domain = "ru"
    str11$ = "strUserName & domain"
   
    Clipboard.Clear
    Clipboard.SetText str11$
    Debug.Print Clipboard.GetText

Решение задачи: «Объединение двух значений String»

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

                            Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
 
Private Sub Command1_Click()
Dim lpBuff As String * 100
Dim strUserName As String
Dim lngResult As Long
Dim Domain As String
lngResult = GetUserName(lpBuff, 100)
strUserName = Left$(lpBuff, InStr(lpBuff, Chr(0)) - 1)
      
Domain = "@ru"
'коипируем в буфер имя пользователя
Clipboard.Clear
Clipboard.SetText strUserName & Domain
Debug.Print Clipboard.GetText
End Sub
                        