Partial Formatting

Ok, how about

Sub CDandVinyl()
   Dim Cl As Range
   Dim i As Long
   
   For Each Cl In Range("H5:H300")
      i = InStr(1, Cl.Value, ".")
      If i > 0 Then Cl.Characters(i, Len(Cl.Value)).Font.Color = vbWhite
   Next Cl
End Sub