[Resolved]connect Progress Bar to function

[king4ever101]

i finally after the help from friends here finished writing the code to my programe.....
so now i want to add Progress Bar to my function that while the function process the files the Progress Bar count....
here is part of code

Private Sub Command2_Click()

Dim sAfter As String
Dim sBefore As String
Dim i As Long
  
 FirText = "  " & FirText & "  "
 FirText = Replace(FirText, vbCr, " " & vbCr) & " "
 FinText = Left(FirText, 1)
 For i = 2 To Len(FirText) - 1


sAfter = Mid(FirText, i + 1, 1)
sBefore = Mid(FirText, i - 1, 1)

 Select Case Mid(FirText, i, 1)

     Case "("
    FinText = FinText & "["
    
     Case ")"
    FinText = FinText & "]"
    
     Case "["
    FinText = FinText & "{"
    
     Case "]"
    FinText = FinText & "}"
    
     Case "{"
    FinText = FinText & "{"
    
     Case "}"
    FinText = FinText & "}"
    
     Case "-"
    FinText = FinText & "-"
    
     Case "+"
    FinText = FinText & "+"
    
     Case "="
    FinText = FinText & "="
    
     Case "0"
    FinText = FinText & "*"
    
     Case "%"
    FinText = FinText & "$"
    
    
   Case "Ç"
    Select Case sBefore
    Case "È", "Ê", "Ë", "Ì", "Í", "Î", "Ú", "ä", "å", "í"
        FinText = FinText & "D"    
   Case "á"
    FinText = FinText & ""
    Case Else
        FinText = FinText & "C" 
    End Select

  Case Else
    If Mid(FirText, i, 2) = vbNewLine Then
      FinText = FinText & vbNewLine
      i = i + 1
         End If
  
 End Select
 
Next

FinText = FinText & Right$(FirText, 1)
FinText = Trim(FinText)

End sub

some letters not clear because this programe to deal with arabic language....
now my question is how can i connect Progress Bar to this function which take text files and process them i try many times (some times the process finshed while the Progress Bar fill just 3 or 4 unit and times Progress Bar finshed count while the function not finshed process the text.......
how i can do that in the corect way....
i hope you understand the idea
and sorry for my english

[Al42]

Put a progressbar on your form.

'the beginning of your code
 FinText = Left(FirText, 1)
 ProgressBar1.Min = 0
 ProgressBar1.Max = Len(FirText) - 1
 For i = 2 To Len(FirText) - 1
   ProgressBar1.Value = i

  sAfter = Mid(FirText, i + 1, 1)
'the rest of your code

[king4ever101]

Put a progressbar on your form.

'the beginning of your code
 FinText = Left(FirText, 1)
 ProgressBar1.Min = 0
 ProgressBar1.Max = Len(FirText) - 1
 For i = 2 To Len(FirText) - 1
   ProgressBar1.Value = i

  sAfter = Mid(FirText, i + 1, 1)
'the rest of your code

thx man it is work 100% but with one problem it is make a big slow in the process ( it was take for example 30 sec to process file conatins 50000 lines now it take about 100 sec to do that)

[Ellis Dee]

Change

ProgressBar1.Value = i

to

If i Mod 100 = 0 Then ProgressBar1.Value = i

[king4ever101]

Change

ProgressBar1.Value = i

to

If i Mod 100 = 0 Then ProgressBar1.Value = i

perfect
a big thx man to you and to Al42

[si_the_geek]

If you want to make the code faster still, comment out these two lines:

sAfter = Mid(FirText, i + 1, 1)
sBefore = Mid(FirText, i - 1, 1)

..and change this:

    Select Case sBefore

to:

    Select Case Mid$(FirText, i - 1, 1)

You should also change all other "Mid" to "Mid$", as the $ version is faster.