Sub EnterText()
Dim strFirst As String, strLast As String, strFull As String
strFirst = InputBox("Enter your first name:")
strLast = InputBox("Enter your last name:")
strFull = JoinText(strFirst, strLast)
MsgBox strFull
End Sub
Function JoinText(k, o)
JoinText = k + " " + o
End Function