Vba

Sub GetValue()
Dim strName As String
Dim strMessage As String

    strName = InputBox("Please enter your name", "Enter name")
    
    strMessage = Join(Array("Hello, " & strName, _
 "Use the grade calculator to find the total marks you need to score in the final exam in order to meet your expectations, given every mark other than the final exam mark", _
                    "Best of luck", _
                    "Please enter all your current marks and the overall mark that you desire (/100)- Start entering from cell G9."), vbCrLf)

    
    MsgBox strMessage, , "Welcome " & strName
    
End Sub