VB6 - Remove apostrophe from MSHFlexgrid1 cells

Hi again.

I have a problem were i want to remove any apostrophe entered in cell 18 of each row, it would replace them by an empty space.

Ex:

"DRY VAN ' NEEDED" would be changed to "DRY VAN  NEEDED"

how can i do that?

Thanks again

Private Sub note_cell_18_Click()
Dim lngMSH_Row As Long
For lngMSH_Row = 1 To MSHFlexGrid1.Rows - 1
    If InStr(1, MSHFlexGrid1.TextMatrix(lngMSH_Row, 18), "'") > 0 Then
       InStr(1, MSHFlexGrid1.TextMatrix(lngMSH_Row, 18) = " "
    End If
Next
End Sub

Select allOpen in new window