Verstaendnis Frage

Private Sub Markieren_VIS_0000_0300()
'0000 bis 0300 rot+fett und 0301 bis 0800 blau+fett
Sheets("WX").Select
Dim usw As Long, var, ct As Integer, start As Integer
For usw = 3 To Cells(3, 3).End(xlDown).Row
var = Split(Cells(usw, 3), " ")
start = 1
For ct = LBound(var) To UBound(var)
If IsNumeric(var(ct)) Then
If Val(var(ct)) 

Es wird also in Tabelle WX Spalte C nach folgende Strings gesucht:
Zahlenwerte 0000 bis 0300 soll die Schrift rot und fett sein.
Zahlenwerte 0301 bis 0800 soll die Schift blau und fett sein.
Die Werte koennen mehrmals in einer Zelle vorkommen.
Beispiel:
C6: FDG654 654FGH45 0200 32SDF565 DF65 0800 FG86FDG5 0100 FG5
Leider Funktioniert das Makro nicht mehr.
Vor mehreren Tagen hatte es noch geklappt!
Leider fehlt mir auch die Kommentierung, damit ich die vielen dreier und vierer zuordnen kann.
Koennte mir jemand Helfen?
Dank und Gruss
mehmet