Inputbox og flere informationer i samme Messagebox VBA

Sub Informationer_i_Række()
Dim Rk As Integer

Rk = InputBox("Række nr?")

Person_Id = Range("B" & Rk)
karakter = Range("C" & Rk)
check_status = Range("D" & Rk)
tilmeld_status = Range("E" & Rk)

Info = MsgBox( _
"Person Id: " & Person_Id & vbNewLine & vbNewLine & _
"Karakter: " & karakter & vbNewLine & vbNewLine & _
"Check status: " & check_status & vbNewLine & vbNewLine & _
"Tilmeld status: " & tilmeld_status, vbInformation, "Informationer")

End Sub