Your data looks very consistent. If it is always separated like ,xx, then
you can use this function:
Public Function ParseData(pstrText As String, _
       pintColumn As Integer) As String
   'pstrText is the value in
   'pintColumn is the column (1-5)
   'parse values like
   'CC,4.5x5x7,C2
   'CC,4x5x7,C2
   'PB,5.5x5.5x8,C2
   'to
   ' 1   2     3   4    5
   '== ===   ===   =   ==
   'CC 4.5   5     7   C2
   'CC 4     5     7   C2
   'PB 5.5   5.5   8   C2
   Dim arCSV
   Dim arX
   'create 3 comma separated values
   arCSV = Split(pstrText, ",")
   'split the "x" separated values
   arX = Split(arCSV(1), "x")
   Select Case pintColumn
       Case 1
           ParseData = arCSV(0)
       Case 2
           ParseData = arX(0)
       Case 3
           ParseData = arX(1)
       Case 4
           ParseData = arX(2)
       Case 5
           ParseData = arCSV(2)
   End Select
End Function