Пошу помощи.

Помогите с кодом:
К примеру 24.09.2010
Нужно 09/24/2010
1.Чтобы менял местами 1-ый символ с 4-ым, 2-ой с 5-ым,
2.Заменить точки "." на "/"
Заранее спасибо.

vlth,

огромное спасибо, а то я уже начал горы воротить
хотел уже вставлять в ячейку, там разбивать на столбцы по знакам табуляции(.)
потом присваивать значение каждой ячейке...
Dim c As String
Dim v As String
Dim b As String
Dim n As String
Cells(1, 1).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
TrailingMinusNumbers:=True
c = Cells(1, 1)
v = Cells(1, 2)
b = Cells(1, 3)
n = v & "/" & c & "/" & b
Впринципе тоже работает, но с вашей помощью код конкретно изменился...
Еще раз спасибо.
Тема закрыта...