Dim strFirstName(2) As String
Dim strLastName(2) As String
Dim strFullName(2) As String

Sub main()
    strFirstName(0) = "Albert"
    strLastName(0) = "Einstein"
    
    strFirstName(1) = "Nikola"
    strLastName(1) = "Tesla"
    
    strFirstName(2) = "Thomas"
    strLastName(2) = "Edison"

    strFullName(0) = strFirstName(0) & " " & strLastName(0)
    MsgBox strFullName(0)
    
    strFullName(1) = strFirstName(1) & " " & strLastName(1)
    MsgBox strFullName(1)
    
    strFullName(1) = strFirstName(1) & " " & strLastName(1)
    MsgBox strFullName(1)
End Sub












Dim strFirstName(2) As String
Dim strLastName(2) As String
Dim strFullName(2) As String
Dim i As Integer

Sub main()
    strFirstName(0) = "Albert"
    strLastName(0) = "Einstein"
    
    strFirstName(1) = "Nikola"
    strLastName(1) = "Tesla"
    
    strFirstName(2) = "Thomas"
    strLastName(2) = "Edison"

    For i = LBound(strFirstName) To UBound(strFirstName)
        strFullName(i) = strFirstName(i) & " " & strLastName(i)
        MsgBox strFullName(i)
    Next i
End Sub