Public Function metinTemizle(metin As String, Optional ilk As Byte = "[", Optional son As Byte = "]") As String
On Error GoTo Err_hata
metin = "temiz metin"
Exit_kod:
metinTemizle = metin
Exit Function
Err_hata:
result = ""
MsgBox Err.Description
Resume Exit_kod
End Function
şunun içini nasıl doldurabiliriz