Como sacar promedio al seleccionar datos en un listbox

Te anexo el código actualizado

Private Sub CommandButton3_Click()
    n = 0
    For i = 0 To ListBox3.ListCount - 1
        If ListBox3.Selected(i) Then
            n = n + 1
            wsuma = wsuma + CDbl(ListBox3.List(i, 1))
        End If
    Next
    If n > 0 Then
        promedio = wsuma / n
        TextBox1 = promedio
        MsgBox "CANTIDAD DE MESES :  " & n & vbCr & vbCr & _
            "SUMA = " & wsuma & vbCr & vbCr & _
            "PROMEDIO = " & promedio, vbInformation, ""
    Else
        MsgBox "Selecciona fechas", vbExclamation
    End If
End Sub

.

.

Muchas gracias... como se puede hacer para que muestre el resultado en numero entero sin decimales