Sub Senden()
    If LCase(txtEingabe.Text) = "hallo" Then
        Randomize
        zufall = Int(Rnd * 3) + 1
        Select Case Zufall
           Case  1 :kate = "Hi ich bin die Kate."
           Case  2 :kate = "Hallo wie geht es dir?"
           Case  3 :kate = "Moin moin!"
        End Select
    End If
 
    If LCase(txtEingabe.Text) = "hallo kate" Then und zwar genau hier!  'hier
        Randomize
        zufall = Int(Rnd * 3) + 1
        Select Case Zufall
           Case  1 :kate = "Was suchst du hier bei mir?"
           Case  2 :kate = "Was kann ich dir anbieten? Willst du was" & _
             "bestimmtes?"
           Case  3 :kate = "Was bist du m. oder w.?"
        End Select
    End If