>>37
Dim temp As String = "abcdefghijklmn"
Dim j As Long = Len(temp)
Dim a, b, c As String
a = Mid(temp, 1, 1) 'return a
b = Mid(temp, 1, j) 'retun abcdefghijklmn
c = Mid(temp, 3, 1)'return c


色はデザイン上から変更していいんじゃね？

label1.ForeColor = Color.Red

リッチテキストボックスならSelectionColor