Function Remove(Str As String) As String 'UPDATE BY LEARN COMPUTER TELUGU CHANNEL Dim xChars As String Dim I As Long xChars = "/.',_#$%@!()^*&" For I = 1 To Len(xChars) Str = Replace$(Str, Mid$(xChars, I, 1), "") Next Remove = Str End Function
Function Remove(Str As String) As String 'UPDATE BY LEARN COMPUTER TELUGU CHANNEL Dim xChars As String Dim I As Long xChars = "/.',_#$%@!()^*&" For I = 1 To Len(xChars) Str = Replace$(Str, Mid$(xChars, I, 1), "") Next Remove = Str End Function
