ich hab mal die ersten beiden If-Blöcke des Codes der Sub Senden() korrigiert:

Sub Senden()
    If LCase(txtEingabe.Text) = "hallo" Then    ' hier 1. If
        Randomize
        zufall = Int(Rnd * 3) + 1
        If zufall = 1 Then                          ' hier 2. If
            kate = "Hi ich bin die Kate."
        ElseIf zufall = 2 Then
            kate = "Hallo wie geht es dir?"
        ElseIf zufall = 3 Then
            kate = "Moin moin!"
        End If                                           ' End If - bezogen auf 
        ' 2. If
    End If                                                ' End If - bezogen 
    ' auf 1. If
 
    If LCase(txtEingabe.Text) = "hallo kate" Then   ' hier stand mal ElseIf
        Randomize
        zufall = Int(Rnd * 3) + 1
        If zufall = 1 Then                                 ' noch ein If
            kate = "Was suchst du hier bei mir?"
        ElseIf zufall = 2 Then
            kate = "Was kann ich dir anbieten? Willst du was bestimmtes?"
        ElseIf zufall = 3 Then
            kate = "Was bist du m. oder w.?"
        End If                                                  ' End if - 
        ' bezogen auf 2. If
    End If                                                      ' End if - 
    ' bezogen auf 1. If
 
    If ............

Es ist im Prinzip immer der gleiche Fehler: Für jede If-Anweisung innerhalb eines If-Blockes brauchst Du ein End If. Eine ElseIf-Bedingung kann immer nur innerhalb eines If-Blockes stehen, niemals am Anfang. Wenn Du Deinen Code unter diesen Gesichtspunkten nochmals durchgehst, müsste es eigentlich klappen.

cu
Moni