Private Sub cmbSchriftgroesse_Change()
    If cmbSchriftgroesse.Text = "" Then
       cmbSchriftgroesse.Text = 8
    End If
    If cmbSchriftgroesse.Text < 8 Then
        cmbSchriftgroesse.Text = 8
    End If
    If cmbSchriftgroesse.Text > 14 Then
        cmbSchriftgroesse.Text = 14
    End If
    cmbschriftgroesse_click
End Sub
 
Private Sub cmbschriftgroesse_click()
    RichTextBox1.Font.Size = cmbSchriftgroesse.Text
End Sub

Private Sub Form_Initialize()
 
    cmbSchriftgroesse.AddItem "8"
    cmbSchriftgroesse.AddItem "10"
    cmbSchriftgroesse.AddItem "12"
    cmbSchriftgroesse.AddItem "14"
    cmbSchriftgroesse.ListIndex = 2