concatenate only non zero values

Public Function ConcSub(aRange As Range) As String


Dim vArr
vArr = aRange


Dim x As Long, p As Long, temp As String


For x = LBound(vArr) To UBound(vArr)
    If Not vArr(x, 2) = 0 Then
        temp = temp & vArr(x, 1) & ", " & vArr(x, 2) & "; "
    End If
Next


ConcSub = Left(temp, Len(temp) - 2)




End Function

Function JoinSubs(Rng As Range) As String
  Dim X As Long, LastRow As Long, Txt As String
  LastRow = Cells(Rows.Count, Rng.Column).End(xlUp).Row
  JoinSubs = Trim(Join(Application.Transpose(Evaluate("IF(" & Rng.Columns(2).Address & "=0,""""," & _
                  Rng.Columns(1).Address & "&"", ""&" & Rng.Columns(2).Address & ")")), "; "))
  If Right(JoinSubs, 1) = ";" Then JoinSubs = Left(JoinSubs, Len(JoinSubs) - 1)
End Function

Function JoinSubs(SubstanceRange As Range, QualityRange As Range) As String
  Dim X As Long, LastRow As Long, Txt As String
  LastRow = Cells(Rows.Count, SubstanceRange.Column).End(xlUp).Row
  JoinSubs = Trim(Join(Application.Transpose(Evaluate("IF(" & QualityRange.Address & "=0,""""," & _
                  SubstanceRange.Address & "&"", ""&" & QualityRange.Address & ")")), "; "))
  If Right(JoinSubs, 1) = ";" Then JoinSubs = Left(JoinSubs, Len(JoinSubs) - 1)
End Function

Function JoinSubs(SubstanceRange As Range, QualityRange As Range) As String
  Dim X As Long, LastRow As Long, Txt As String
  LastRow = Cells(Rows.Count, SubstanceRange.Column).End(xlUp).Row
  JoinSubs = Join(Application.Transpose(Evaluate("IF(" & QualityRange.Address & "=0,""""," & _
             SubstanceRange.Address & "&"", ""&" & QualityRange.Address & ")")), "; ")
  Do While InStr(JoinSubs, "; ; ")
    JoinSubs = Replace(JoinSubs, "; ; ", "; ")
  Loop
  JoinSubs = Trim(JoinSubs)
  If Right(JoinSubs, 1) = ";" Then JoinSubs = Left(JoinSubs, Len(JoinSubs) - 1)
End Function