Dim stringa As String
Dim i As Integer

For i = 1 To Len(stringa)
If Mid(stringa, i, 1) = Chr(27) Then
stringa = Left(stringa, i - 1) & "$" & Mid(stringa, i + 1)
End If
Next

Ho visto adesso che ti avevo detto di usare l'Asc() e invece io ho usato la chr(); è uguale se vuoi usare l'Asc() cambia l'if mettendo:
If asc(Mid(stringa, i, 1)) = 27 Then

Spero che funzioni xkè non ho potuto testarlo.