VBA Change Date from European

[Jmarsh4]

Hello,

I am writing a macro in which I need to change two columns of dates from european format to standard and change the periods to dashes. The dates currently look like 30.06.2012 and I need them to appear as 06/31/2012. In recording this change I see that I can use:

Columns("B:B").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 4), TrailingMinusNumbers:=True

but the goal is to have an extremely clean, short macro that other users can easily troubleshoot. I've been able to simplify most other functions down to one line of code. Is there a simpler way to do this?

Thank you!