xth of a total of cells

[Samet1805]

Dear specialists
With the code below I count how many times a certain text (function.caption) occurs in sheet SV-SE, range (D2:D100)

Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIf(Sheets("SV-SE").Range("D2:D1000"), Function.Caption)
number.Caption = iVal

Now I want to add a piece that shows how much of a total this is. Is that possible?

example: 2 of 3

thanks in advance