Вы можете создать глобальную переменную и изменять ее значение каждый раз, когда пользователь нажимает кнопку.Затем измените изображение на основе значения
Что-то вроде: -
В модуле:
Option Explicit
Global booSorted As Boolean
Затем в кнопке onClick событие
Private Sub cmdBtnName_Click()
If booSorted=True then
booSorted=False
Me.cmdBtnName.Picture = "ImagePath1"
Else
booSorted=True
Me.cmdBtnName.Picture = "ImagePath2"
End if
End Sub