‘ convert from any base to decimal’ BASE can be in the range 2-36Function Any2Dec(ByVal otherBaseNumber As String, ByVal base As Integer) As Long Dim digits As String Dim digitValue
‘ Change the extension of a file name’ if the last argument is True, it adds the extension even if the file doesn’t ‘ have oneFunction ChangeFileExtension(ByVal FileName As String,
‘ Append a backslash (or any character) at the end of a path’ if it isn’t there alreadyFunction AddBackslash(ByVal Path As String, Optional ByVal ch As Char = “”c) _
‘ Put quotes around a string and double any embedded Chr$(34)” convert all control characters into ControlChars.*** VB constants’ or CHR() functions” This function is useful, for example, when you
‘ “Explode” a string by inserting a given filling character’ between consecutive characters in the original string” The source string cannot contain Chr$(0) charactersFunction ExplodeString(ByVal Source As String, Optional ByVal
‘ If INCLUDE is True or is omitted, return the first occurrence of a character ‘ in a group’ or -1 if SOURCE doesn’t contain any character among those listed
‘ Return True if a string is a valid name for a Visual Basic variable or ‘ procedure.’ This function turns to be useful when writing add-ins that generate code.’
‘ Replicate a string a given number of timesFunction ReplicateString(ByVal Source As String, ByVal Times As Integer) As _ String Dim i As Integer Dim sb As New Text.StringBuilder(Source.Length *