old.Replace(":", "").Replace('/', '\\').Replace("%20", " ")

Public Sub Clear(Me items As Collections)
    Do Until items.Count = 0 : items.Remove 1 : Loop
End Sub

myCollection.Clear

Marshal.ReleaseComObject(foo);

var excel = new Excel.Application();
// do stuff
Marshal.ReleaseComObject(excel);

var excel = new Excel.Application();
DoStuff(excel);
Marshal.ReleaseComObject(excel);

using (var foo = new SomeManagedDisposableObject())
{
    // do stuff
}

var foo = new SomeManagedDisposableObject();
try
{
    // do stuff
}
finally
{
    foo.Dispose();
}

Public Sub Foo(bar as string)
    bar = "some other Bar"
end sub

Public sub Foo(bar as string)
    ws1.range("A1").value2 = bar
end sub

int i = 0;  // explicitly say what it is
var i = 0;  // C# knows because `0` is an `int`

Option Explicit

Private Enum WhichSheet
    NorthAmerica
    Europe
    Elsewhere
End Enum

Private Enum ListToUse
    Consumers
    Vendors
    Shippers
End Enum

Private Enum InternationalShippers
    DHL
    RoyalAir
    ICantThinkOfAnother
End Enum

Public Sub FillInShippingInfo()
    Dim useList As ListToUse
    Dim listResult As Variant
    listResult = GetTheUseList(NorthAmerica, Consumers)
    ActiveSheet.Range("A1").Resize(ColumnSize:=UBound(listResult) + 1) = listResult
End Sub

Private Function GetTheUseList(ByVal ws As WhichSheet, ByVal list As ListToUse) As Variant