Dim text As String = 入力された文字列 Dim s1 As String = Strings.Left(text, 10) '先頭10文字 Dim s2 As String = Strings.Mid(text, 11) 'それ以降の超過分 Dim normalText As Inline = New Run(s1) Dim overText As Inline = New Run(s2) With {.Background = New SolidColorBrush(Colors.Yellow)}