solo me trae un mensaje cuando deberia ser varios en msgbox

[elpaisa]

pues miren tengo un programa que me conecta con una procedimiento almacenado y que envia los parametros y conexion y todo pero tengo este algoritmo que deberia traerme varios mensajes cuando ejecuta el procedimiento pero siempre me trae el primero aca les paso el codigo


cnn.Open()
' cmd.ExecuteNonQuery()
Dim Reader As SqlDataReader
Reader = cmd.ExecuteReader()
Dim RecordCount As Integer = 0
Dim Records As String
Records = ""
While Reader.Read()

Dim i As Integer = 0
For i = 0 To Reader.FieldCount - 1
Records = Reader(i) & " - "

Next
RecordCount += 1
End While

como puede hacer para que me traiga los mensajes

los mensajes eran print pero los cambie por un select