VB Coding Tip: Trim a Selected Character From a String

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