文字取代
Dim find(1) As String '尋找被取代的文字
find(0) = "@juoku.com.tw"
find(1) = "_"
Dim reple(1) As String '取代的文字
reple(0) = "/Tainan/tw"
reple(1) = " "
auth = Replace(來源, find, reple)
範例
Function repleName(usern As String) As String
Dim find(2) As String '尋找被取代的文字
find(0) = "CN="
find(1) = "O="
find(2) = "C="
Dim reple(2) As String '取代的文字
reple(0) = ""
reple(1) = ""
reple(2) = ""
repleName = Replace(usern, find, reple)
End Function