Function delSymbol(strStroka As String, kode As Long) As String
On Error GoTo E
Dim lngDlina As Long
Dim strLeft As String
Dim strRight As String
Dim i As Long
Dim strSymbol As String
If strStroka =  "" Then
delSymbol = "  "
Exit Function
End If
lngDlina = Len(strStroka)
For i = 1  To lngDlina
strSymbol = Mid(strStroka, i,  1 )
If Asc(strSymbol) = kode Then
'Удалить символ
If i =  1  Then
strLeft = " "
Else: strLeft = Left(strStroka, (i - 1 ))
End If
If i = lngDlina Then
strRight = ""
Else: strRight = Right(strStroka, (lngDlina - i))
End If
strStroka = strLeft & strRight
lngDlina = Len(strStroka)
i = i -  1 
End If
Next
E: delSymbol = strStroka

End Function