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