Alt mellem [ & ] skal farves rødt o.s.v. i en text1.text

bruge replace funktionen :)

Replace(expression, find, replacewith[, start[, count[, compare]]])

Og den skal bruges hvordan (jeg er newbie)?
Kan du ev statuere med et lille eksempel?

Replace(Replace(rs(\"blabla\"),vbCrLf,\"<br>\"),\"det_den_skal_finde\",\"det_der_skal_sættes_istedet\")

Ehh...

Private Sub Command1_Click()
Text1.Text = Replace(Replace(rs(\"blabla\"), vbCrLf, \"<br>\"), \"det_den_skal_finde\", \"det_der_skal_sættes_istedet\")
End Sub

Hvis du bruger en Richtextbox (som du kalder RTB) kan du indsætte følgende kode i RTB_keypress

Private Sub RTB_KeyPress(KeyAscii As Integer)

If KeyAscii = 91 Then
RTB.SelColor = vbRed
End If
If KeyAscii = 93 Then
RTB.SelColor = vbBlue
End If
End Sub

vbBlue skal erstattes med vbBlack - hvis du vil have sort skrift

Du kan også gøre det således:
Private Sub RTB_KeyPress(KeyAscii As Integer)
If KeyAscii = 93 Then
RTB.SelColor = vbBlack
End If
End Sub

Private Sub RTB_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 56 Then
RTB.SelColor = vbRed
End If
End Sub