Pues casi lo tienes hecho solo que te faltan algunas cosas por ejemplo no necesitas el while lo podes hacer con un if.
Código vb.net:
Ver originalPublic Sub Store(ByVal strNombre As String)
Try
Dim dr As MySqlDataReader
Dim comm As New MySqlCommand(strNombre, conexion)
comm.CommandType = CommandType.StoredProcedure
Dim da As New MySqlDataAdapter(comm)
cnn.Open()
dr = comm.ExecuteReader
If dr.Read() Then
MsgBox(dr
("campo a mostrar").ToString()) End If
Catch ex As MySqlException
MessageBox.Show(ex.Message)
End Try
End Sub
Donde dice nombre a mostrar iría el nombre del campo que quieres mostrar.
Saludos.