Avg a value within a Dictionary using LINQ

Public Class Form1
 
    Private CurHost As String = "1.1.1.1"
    Private PingResponse As New Dictionary(Of Integer, clsPingResp)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MakeNewSampleData()
 
        Dim Response = Aggregate responses _
                        In (From cpr In PingResponse.Values _
                          Where cpr.strHost = CurHost) _
                        Into NumResponses = Count(responses.ResponseTime), _
                        MinResponse = Min(responses.ResponseTime), _
                        MaxResponse = Max(responses.ResponseTime), _
                        AvgResponse = Average(responses.ResponseTime)
 
        Dim msg As New System.Text.StringBuilder
        msg.AppendLine("Host: " & CurHost)
        msg.AppendLine("# Responses: " & Response.NumResponses)
        msg.AppendLine("Min Response Time: " & Response.MinResponse)
        msg.AppendLine("Max Response Time: " & Response.MaxResponse)
        msg.AppendLine("Avg Response Time: " & Response.AvgResponse)
        MessageBox.Show(msg.ToString, "Response Summary", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
 
    Private Sub MakeNewSampleData()
        Static R As New Random
        PingResponse.Clear()
        Dim min As Integer = R.Next(1, 51)
        Dim max As Integer = R.Next(50, 101)
        For i As Integer = 1 To R.Next(100, 501)
            ' add some data for the current host
            PingResponse.Add(i, New clsPingResp() With {.strHost = CurHost, .ResponseTime = R.Next(min, max)})
 
            ' add some other random host data to the dictionary:
            PingResponse.Add(1000 & i, New clsPingResp() With {.strHost = "a.a.a.a", .ResponseTime = R.Next(min, max)})
            PingResponse.Add(2000 & i, New clsPingResp() With {.strHost = "b.b.b.b", .ResponseTime = R.Next(min, max)})
            PingResponse.Add(3000 & i, New clsPingResp() With {.strHost = "c.c.c.c", .ResponseTime = R.Next(min, max)})
        Next
    End Sub
 
End Class
 
Public Class clsPingResp
    Public strHost As String
    Public ResponseTime As Integer
End Class

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47: