HJLÆÆÆÆÆP select

jeg er ved at lave et lille project. jeg har lavet så man kan ændre tekstens FONT men kun på al teksten ...
jeg vil nu gerne lave så at man selv kan bestemme hvad for noget at teksten der skal have hvilken font ... altså så at man kan markere halvdelen af teksten og sige at den skal være Arial ... håber i kan hjælpe
eks.
http://www.friserverplads.dk/vbselected

kildekode:
Private Sub Text1_Change()


If Combo1.ListIndex = 0 Then
  Text1.Font.Name = \"Arial\"
End If
If Combo1.ListIndex = 1 Then
  Text1.Font.Name = \"Courier\"
End If
If Combo1.ListIndex = 2 Then
  Text1.Font.Name = \"Courier New\"
End If
If Combo1.ListIndex = 3 Then
  Text1.Font.Name = \"Verdana\"
End If
If Combo1.ListIndex = 4 Then
  Text1.Font.Name = \"Helvetica\"
End If
If Combo1.ListIndex = 5 Then
  Text1.Font.Name = \"MS Serif\"
End If
If Combo1.ListIndex = 6 Then
  Text1.Font.Name = \"Tahoma\"
End If
If Combo1.ListIndex = 7 Then
  Text1.Font.Name = \"Times New Roman\"
End If
End Sub
Private Sub combo1_click()
Text1_Change
End Sub

Private Sub UserControl_Initialize()
 
  Combo1.AddItem \"Arial\", 0
  Combo1.AddItem \"Courier\", 1
  Combo1.AddItem \"Courier New\", 2
  Combo1.AddItem \"Verdana\", 3
  Combo1.AddItem \"Helvetica\", 4
  Combo1.AddItem \"MS Serif\", 5
  Combo1.AddItem \"Tahoma\", 6
  Combo1.AddItem \"Times New Roman\", 7
  Combo1.ListIndex = 0
End Sub