HERE

like this sir.. the name listed below this are the name that have a discount and if you are not a member you dont have a discount please help me
  Dim a, b As String
        a = (TextBox1.Text)
        b = (TextBox2.Text)
        If a = "Julius B. Tanguilig" Then
            TextBox2.Text = "09268862690/425673"
        ElseIf a = "Jodel D. Avendano" Then
            TextBox2.Text = "09053146571/432467"
        ElseIf a = "Mara Grantoza" Then
            TextBox2.Text = "09357648907/423094"
        Else
            TextBox2.Text = " "