If Len(txtbx_phone.Text) = 0 Then
                txtbx_phone.Clear()
            Else
                With txtbx_phone.Text
                    txtbx_phone.SelectionStart = 9
                    txtbx_phone.SelectionLength = 4
                    txtbx_phone.SelectionColor = Color.Red
                    txtbx_phone.SelectionLength = 0
                    txtbx_phone.SelectedText = "--"
                End With

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)