Declare Function StrTrim Lib "Shlwapi" _ Alias "StrTrimW" (ByVal pszSource As Long, _ ByVal pszTrimChars As Long) As Boolean
функция возвращает True, если символы были удалены. В противном случае возвращается False
Dim strSource As String
strSource = "Visual Basic"
Dim trim As String
trim = "Vic"
Call StrTrim(StrPtr(strSource), StrPtr(trim))
MsgBox strSource ' содержит sual Bas