MultiReplace Function To Replace Multiple Text With One Line

[SNIPER.PS]

Hello Every Body

This My MultiReplace Function To Replace Multiple Text With One Line By Using Arrays

Public Function MultiReplace(xExpression As String, xFind As Variant, xReplace As Variant, Optional xStart As Long = 1, Optional xCount As Long = -1, Optional xCompareMethod As VbCompareMethod = vbBinaryCompare) As Variant 
If UBound(xFind) = UBound(xReplace) Then 
Dim i As Integer 
For i = LBound(xFind) To UBound(xFind) 
xExpression = Replace(xExpression, xFind(i), xReplace(i), xStart, xCount, xCompareMethod) 
Next i 
MultiReplace = xExpression 
Else 
MsgBox "Error In Array", vbCritical, "Err" 
MultiReplace = xExpression 
Exit Function 
End If 
End Function 

Example

Private Sub Command1_Click() 
Text1.Text = MultiReplace(Text1.Text, Array("Sniper", "vb6"), Array("Sniper.ps", "vb.net")) 
End Sub 

All The Best