player.settings.Volume = player.settings.Volume + 10
Dim i As VariantSet i = player.settings.Volumei = i + 10