Cacher is the code snippet organizer for pro developers

Private Function GetAdjustedLongCommaDelimitedString(ByVal strList As String, lAdjustBy As Long) As String
   Dim arrValues() As String
   Dim i As Long
   Dim strValue As String
   Dim strOutput As String

   arrValues = Split(strList, ",")

   For i = LBound(arrValues) To UBound(arrValues)
      strValue = arrValues(i)

      If IsNumeric(strValue) Then
         If strOutput <> "" Then
            strOutput = strOutput & ","
         End If

         strOutput = strOutput & CStr(CLng(strValue) + lAdjustBy)
      End If
   Next

   GetAdjustedLongCommaDelimitedString = strOutput
End Function