Developer.com content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
Public Function TrimChar( _
text As String, _
char As String)
Dim trimspace As Integer
Dim thechar$, thechars$
If InStr(text, char) = 0 Then
TrimChar = text
Exit Function
End If
For trimspace = 1 To Len(text)
thechar$ = Mid(text, trimspace, 1)
thechars$ = thechars$ & thechar$
If thechar$ = char Then
thechars$ = Mid( thechars$, 1, _
Len(thechars$) - 1)
End If
Next trimspace
TrimChar = thechars$
End Function
Private Sub cmdTrim_Click()
Text1=TrimChar(Text1,"H")
End Sub