Progress bar in userform

You change its value:

        With Sheets("13")
           lRow = .Range("s" & .Rows.Count).End(xlUp).Offset(1).row
            Me.ProgressBar1.Value = 0
            .Range("r" & lRow).Value = CDate(Me.TextBox1.Value)
            Me.ProgressBar1.Value = 20
            .Range("v" & lRow).Value = Me.ComboBox1.Value
            Me.ProgressBar1.Value = 40
            .Range("s" & lRow).Value = Me.Controls("chxCase" & i).Value
            Me.ProgressBar1.Value = 60
            .Range("t" & lRow).Value = Me.Controls("txtCase" & i).Value
            Me.ProgressBar1.Value = 80
            .Range("u" & lRow).Value = Me.Controls("tmCase" & i).Value
            Me.ProgressBar1.Value = 100
          
        End With