ComboBox & zusatz... help

Private Sub TextBox16_AfterUpdate()
If Me.ComboBox1.ListIndex = 0 Then [B25].Value = "Sehr geehrter Herr " & Me.TextBox16.Value & ","
If Me.ComboBox1.ListIndex = 1 Then [B25].Value = "Sehr geehrte Frau " & Me.TextBox16.Value & ","
End Sub

Private Sub TextBox17_AfterUpdate()
If Me.ComboBox2.ListIndex = 0 Then [G13].Value = "Anprechpartner: " & Me.TextBox7.Value & " " & TextBox17
If Me.ComboBox2.ListIndex = 1 Then [G13].Value = "Ansprechpartnerin: " & Me.TextBox7.Value & " " & TextBox17
End Sub

Private Sub TextBox28_AfterUpdate()
If Me.ComboBox3.ListIndex = 0 Then [B148].Value = "Bitte setzen Sie sich mit dem Stadtführer Herr " & Me.TextBox28 & " unter der Tel.: " & Me.TextBox29.Value & "- " & TextBox30 & " in Verbindung,"
If Me.ComboBox3.ListIndex = 0 Then [B150].Value = "Der Stadtführer erwartet Sie " & TextBox31 & " zur angegebenen Uhrzeit."
If Me.ComboBox3.ListIndex = 1 Then [B148].Value = "Bitte setzen Sie sich mit der Stadtführerin Frau " & Me.TextBox28 & " unter der Tel.: " & Me.TextBox29.Value & "- " & TextBox30 & " in Verbindung,"
If Me.ComboBox3.ListIndex = 1 Then [B150].Value = "Die Stadtführerin erwartet Sie " & TextBox31 & " zur angegebenen Uhrzeit."
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 0 'erster Eintrag wird angezeigt
With ComboBox2
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 1 'erster Eintrag wird angezeigt
With ComboBox3
.AddItem "Herr"
.AddItem "Frau"
.ListIndex = 1 'erster Eintrag wird angezeigt
End With
End With
End With
End Sub