[問題] excel vba

[HILLFLY (假如時光倒流)]

軟體:
excel 2010
版本:

小弟文件中第一排的數據都是數字

例如　20120607

想使用ｖｂａ轉成日期

我會用函數轉　但是想直接用ｖｂａ比較方便

Sub 使用()
    Dim myRng As Range

    For Each myRng In ActiveSheet.Range("A1:A" & _
                         ActiveSheet.UsedRange.Rows.Count)

    myRng = InStr(1, myRng, "/", 4)
    myRng = InStr(1, myRng, "/", 7)
    Next


End Sub


執行的結果都直接變成０～～～


怎麼會這樣？


可以請大大幫忙看一下嗎？
感謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.126.27.219
→ soyoso:myRng = Application.Replace(myRng, 7, 0, "/")
→ soyoso:myRng = Application.Replace(myRng, 5, 0, "/")
→ soyoso:或合併寫myRng = DateValue(Format(myRng, "0000-00-00"))
→ soyoso:檔案:http://goo.gl/kcxnl
→ HILLFLY:感謝大大~~~~~~成功了 第一個REPLACE函數~