Excel 2007 : Concatenate

hi..
it's simple user defined function
check attachment please!

Function MyConcat(rngX As Range, rngY As Range, Optional strD As String = ",") As String
Dim intX As Integer
Dim strTmp As String

If rngX.Count <> rngY.Count Then
   MyConcat = "Oooops"
   Exit Function
End If

For intX = 1 To rngX.Count
   strTmp = strTmp & " " & rngX(intX) & Format(rngY(intX), "(0.00)") & strD
Next
MyConcat = Left$(strTmp, Len(strTmp) - 1)
End Function