Basic ChatBot

Public Class frmChat

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Randomize()
        Dim rndNum As Integer
        rndNum = Int(Rnd() * 3) + 1
        Dim input As String
        input = txtInput.Text
        If input.Contains("family") Then
            txtBot.AppendText("tell me more about your family" & vbNewLine)
        ElseIf input.Contains("I am") Then
            If rndNum = 1 Then
                txtBot.AppendText("that is interesting" & vbNewLine)
            ElseIf rndNum = 2 Then
                txtBot.AppendText("cool" & vbNewLine)
            ElseIf rndNum = 3 Then
                txtBot.AppendText("great" & vbNewLine)
            End If
        End If
    End Sub
End Class