¿Cómo poner formato de porcentaje en un label?

Tengo este código:

Private Sub CommandButton6_Click()
Dim Suma As Double
Suma = (Val(Label19.Caption) + Val(Label29.Caption) + Val(Label39.Caption) + Val(Label50.Caption) + Val(Label81.Caption)) / 5
Label96.Caption = Str(Suma)
Label96 = Format(Label96.Caption, "0%")
End Sub

Pero al correrlo, en el resultado que me da el Label96, me pone 2 ceros de más. Por ejemplo, en lugar de que me de 50%, me da 5000%. Ya revise la operación aparte y si debe darme 50%, además que también verifique que los label fueron los correctos.

Se que es una operación muy sencilla pero es por eso mismo que no le encuentro solución.