Besondere vbscipt für Beschriftung

Hallo,

wer kennt sich in vbscipt aus?
in einem Beschriftungsausdruck existiert folgende Beschreibung:
************************************************** ****
Function FindLabel ([LISDBA.TSW.GEMARKUNG], [LISDBA.TSW.FLURNRGRUNDBUCH] )

IF ([LISDBA.TSW.FLURNRGRUNDBUCH] <> 0)
THEN
FindLabel = "<CLR red='0' green='0' blue='0'>" & "<UND>" & "<FNT name='Arial' size='15'>"
& [LISDBA.TSW.GEMARKUNG]
& "</FNT>" & "</UND>" & "</CLR>"
& vbnewline & vbnewline &
"<CLR red='169' green='0' blue='230'>" & "<UND>" & "<FNT name='Arial' size='15'>" & "Flur "
& [LISDBA.TSW.FLURNRGRUNDBUCH]
& "</FNT>" & "</UND>" & "</CLR>"
Else
FindLabel = "<CLR red='0' green='255' blue='0'>" & "<UND>" & "<FNT name='Arial kursiv' size='18'>" & [LISDBA.TSW.GEMARKUNG] & "</FNT>" & "</UND>" & "</CLR>"
END IF

End Function
************************************************** ********
Das sieht zunächst recht unübersichtlich aus:
Ausgelesen wird aus zwei Felder: Gemarkung + Flur
Die jeweiligen Werte stehen untereinander und werden jeweils unterstrichen.
Jetzt mein Anliegen:
Ich benötige eine Beschreibung, mit dessen Hilfe die Farbe und die Strickstärke der Unterstriche der Texte unterschieden werden können.
Also für Text und Unterstreichung eine unterschiedliche Farbe und Strickstärke.

Wer kann mir da helfen, wenn es überhaupt funktioniert?

D.H.