Form Load добавляет в TextBox только первое значение - VB

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

Здравствуйте, господа программисты, у меня такой вопрос: В проекте имеется модуль с такими функциями:

                    Листинг программы
                
GetBiosDate()
GetBiosVersion()
Get1StProcessorName()
GetUsername()

все функции Public. В самой форме код такой:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim GP As String
Dim GBD As String
Dim GU As String
Dim GBV As String
Dim ALLD As String
 
Private Sub Form_Load()
GP = Get1StProcessorName
GBD = GetBiosDate
GU = GetUsername
GBV = GetBiosVersion
ALLD = GP & GBD & GU & GBV
Text1.Text = ALLD
End Sub

В результате выполнения, в Text1.Text появляется только первое значение из ALLD: Почему, и как исправить? P.S. По отдельности выводятся все значения, например:

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim GP As String
Dim GBD As String
Dim GU As String
Dim GBV As String
Dim ALLD As String
 
Private Sub Form_Load()
GP = Get1StProcessorName
GBD = GetBiosDate
GU = GetUsername
GBV = GetBiosVersion
'ALLD = GP & GBD & GU & GBV
'Text1.Text = ALLD
Text1.Text = GP
Text2.Text = GBD
Text3.Text = GU
Text4.Text = GBV
End Sub

Но мне нужен только один TextBox и именно в Form Load.

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Function GetBiosVersion() As String
Dim RetVal As Long, RetStr As String, rBuffer As Long
RegOpenKey HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\", RetVal
RegQueryValueEx RetVal, "SystemBiosVersion", 0&, REG_SZ, vbNullString, rBuffer
RetStr = Space(rBuffer)
RegQueryValueEx RetVal, "SystemBiosVersion", 0&, REG_SZ, ByVal RetStr, Len(RetStr)
Get1StProcessorName = Left(RetStr, Len(RetStr) - 1)
RegCloseKey RetVal
End Function